Copyright (C) 1994, Digital Equipment Corp.
INTERFACE wraps;
PROCEDURE GetTransform ( ctxt: INTEGER;
VAR ctm, invctm: ARRAY [0..5] OF REAL;
VAR xOffset, yOffset: INTEGER);
PROCEDURE FetchInteger ( ctxt: INTEGER;
u: TEXT; alreadyLocked: BOOLEAN := FALSE ): INTEGER;
PROCEDURE FetchNumber ( ctxt: INTEGER;
u: TEXT; alreadyLocked: BOOLEAN := FALSE ): REAL;
PROCEDURE FetchString ( ctxt: INTEGER;
u: TEXT; alreadyLocked: BOOLEAN := FALSE ): TEXT;
PROCEDURE XYHit ( ctxt: INTEGER;
x, y: REAL;
u: TEXT ): BOOLEAN;
PROCEDURE Stringwidth ( ctxt: INTEGER;
f: TEXT; s: TEXT;
VAR x, y: REAL );
<*EXTERNAL*> PROCEDURE GetTransformWrap ( ctxt: INTEGER;
ctm, invctm: UNTRACED REF ARRAY [0..5] OF REAL;
xOffset, yOffset: UNTRACED REF INTEGER );
<*EXTERNAL*> PROCEDURE FetchIntegerWrap ( ctxt: INTEGER;
u: UNTRACED REF CHAR;
r: UNTRACED REF INTEGER );
<*EXTERNAL*> PROCEDURE FetchNumberWrap ( ctxt: INTEGER;
u: UNTRACED REF CHAR;
r: UNTRACED REF REAL );
<*EXTERNAL*> PROCEDURE FetchStringWrap ( ctxt: INTEGER;
u: UNTRACED REF CHAR;
s: UNTRACED REF CHAR );
<*EXTERNAL*> PROCEDURE XYHitWrap ( ctxt: INTEGER;
x, y: REAL;
u: UNTRACED REF CHAR;
b: UNTRACED REF BOOLEAN );
<*EXTERNAL*> PROCEDURE StringwidthWrap ( ctxt: INTEGER;
f, s: UNTRACED REF CHAR;
x, y: UNTRACED REF REAL );
END wraps.