<<>> <> <> <> <> <<>> 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.