GGViewerOps.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Last edited by Bier on September 12, 1987 1:45:11 pm PDT
Contents: Utility routines to get and set values from buttons, labels, and text viewers.
Pier, June 27, 1991 2:47 pm PDT
DIRECTORY
Rope, Vector2, ViewerClasses;
GGViewerOps: CEDAR DEFINITIONS =
BEGIN
Point: TYPE = Vector2.VEC;
Viewer: TYPE = ViewerClasses.Viewer;
GetReal: PROC [textViewer: Viewer, default: REAL] RETURNS [r: REAL];
GetTwoReals: PROC [textViewer: Viewer] RETURNS [x, y: REAL];
GetPositiveReal: PROC [textViewer: Viewer, default: REAL] RETURNS [r: REAL];
SetReal:
PROC [viewer: Viewer, real:
REAL, format: Rope.
ROPE ←
NIL];
NIL format is interpreted as "%g".
GetPoint: PROC [textViewer: Viewer] RETURNS [point: Point, success: BOOL];
SetPoint: PROC [viewer: Viewer, point: Point];
GetIconSize:
PROC []
RETURNS [width, height:
INT];
END.