GGViewerOps.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Last edited by Bier on August 6, 1985 5:44:54 pm PDT
Contents: Utility routines to get and set values from buttons, labels, and text viewers.
DIRECTORY
GGModelTypes,
ViewerClasses;
GGViewerOps: CEDAR DEFINITIONS =
BEGIN
Point: TYPE = GGModelTypes.Point;
Viewer: TYPE = ViewerClasses.Viewer;
GetReal: PROC [textViewer: Viewer, default: REAL] RETURNS [r: REAL];
SetReal: PROC [viewer: Viewer, real: REAL];
GetPoint: PROC [textViewer: Viewer] RETURNS [point: Point, success: BOOL];
SetPoint: PROC [viewer: Viewer, point: Point];
END.