GGViewerOps.mesa
Copyright Ó 1985, 1992 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 29, 1992 3:06 pm PDT
DIRECTORY
Rope, Vector2, ViewerClasses;
GGViewerOps: CEDAR DEFINITIONS =
BEGIN
Point: TYPE = Vector2.VEC;
Viewer: TYPE = ViewerClasses.Viewer;
GetSelectionContents: PROC [] RETURNS [Rope.ROPE]; -- may return NIL
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.