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]; GetPoint: PROC [textViewer: Viewer] RETURNS [point: Point, success: BOOL]; SetPoint: PROC [viewer: Viewer, point: Point]; GetIconSize: PROC [] RETURNS [width, height: INT]; END. 4 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 NIL format is interpreted as "%g". ΚŠ–(cedarcode) style•NewlineDelimiter ™code™Kšœ Οeœ6™BKšœ8™8KšΟnœQ™YK™K™—šΟk ˜ Kšœ˜K˜—Kšž œŸœŸ œ˜ KšŸ˜K˜KšœŸœ Ÿœ˜KšœŸœ˜$K˜Kš žœŸœŸœŸœΟc˜DK˜Kš žœŸœŸœŸœŸœ˜DKšž œŸœŸœŸœ˜