DIRECTORY Customize, Rope, Xl, XTk;

XTkDB: CEDAR DEFINITIONS ~ BEGIN 


BuildQueryFromWidget: PROC [w: XTk.Widget, screenPrefix: BOOL ¬ TRUE] RETURNS [query: Customize.Query];
DoQueryFromWidget: PROC [w: XTk.Widget, screenPrefix: BOOL ¬ TRUE, key1, key2: ATOM ¬ NIL] RETURNS [REF];


ScanGeometry: PROC [val: REF] RETURNS [s: Xl.Size, p: Xl.Point, xneg, yneg: BOOL];
ScanSize: PROC [val: REF] RETURNS [s: Xl.Size];
ScanInt: PROC [val: REF] RETURNS [i: INT];
GetGeometryFromDB: PROC [w: XTk.Widget] RETURNS [Xl.Geometry];
GetSizeFromDB: PROC [w: XTk.Widget] RETURNS [Xl.Size];
END.

    
XTkDB.mesa
Copyright Ó 1989, 1990, 1991 by Xerox Corporation.  All rights reserved.
Created by Christian Jacobi, October 11, 1989 2:16:11 pm PDT
Christian Jacobi, August 22, 1991 1:46 pm PDT

Database and query construction
Given a widget returns a query type for it.
screenPrefix: whether query shall have a screen dependent prefix part. 

Given a widget builds query and return result of applying query to shared default data base.
screenPrefix: whether query shall have a screen dependent prefix part. 
key1, key2: options for additional step appended to query. 

Scanning utilities
All scanning routines return negative values on failures unless specified differently.
Scans geometry spec into size and pos fields [border data NOT included].

Scans size spec into size .
Better then using ScanGeometry because of runtime cost for catching IO.EndOfStream.
 
Scans spec into an integer.


Getting resource values

Gets specified size and pos of widget according to database file.

Gets specified size of widget according to database file.

 Ê°  •NewlineDelimiter
–(cedarcode) style™ code™
Kšœ
Ïeœ=™HK™<K™-K™ —šÏk	œ˜#K˜ —KšÐbnœžœžœžœ˜!K˜ šÑael™K˜ š
Ïnœžœžœžœžœ˜gK™+K™GK™ —š¡œžœžœžœžœžœžœžœ˜iK™\K™GK™;K™ ——K˜ š ™K˜ K™VK˜ š
¡œžœžœžœ'žœ˜RK™HK™ —š¡œžœžœžœ˜/K™KšœDžœ™SK™—š
¡œžœžœžœžœ˜*K™K™ ——K™ š ™K™ š¡œžœžœ˜>K™AK™ —š¡œžœžœ˜6K™9K™ ——Kšžœ˜K˜ — …—    H    