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
DIRECTORY Customize, Rope, Xl, XTk;
Database and query construction
BuildQueryFromWidget:
PROC [w: XTk.Widget, screenPrefix:
BOOL ¬
TRUE]
RETURNS [query: Customize.Query];
Given a widget returns a query type for it.
screenPrefix: whether query shall have a screen dependent prefix part.
DoQueryFromWidget:
PROC [w: XTk.Widget, screenPrefix:
BOOL ¬
TRUE, key1, key2:
ATOM ¬
NIL]
RETURNS [
REF];
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.
ScanGeometry:
PROC [val:
REF]
RETURNS [s: Xl.Size, p: Xl.Point, xneg, yneg:
BOOL];
Scans geometry spec into size and pos fields [border data NOT included].
ScanSize:
PROC [val:
REF]
RETURNS [s: Xl.Size];
Scans size spec into size .
Better then using ScanGeometry because of runtime cost for catching IO.EndOfStream.
ScanInt:
PROC [val:
REF]
RETURNS [i:
INT];
Scans spec into an integer.