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]; GetPoint: PROC [textViewer: Viewer] RETURNS [point: Point, success: BOOL]; SetPoint: PROC [viewer: Viewer, point: Point]; GetIconSize: PROC [] RETURNS [width, height: INT]; END. ,GGViewerOps.mesa Copyright c 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 NIL format is interpreted as "%g". ΚK˜code™Kšœ Οmœ1™