DIRECTORY Imager, ViewerClasses; SVViewerTools: CEDAR DEFINITIONS = BEGIN Color: TYPE = Imager.Color; Viewer: TYPE = ViewerClasses.Viewer; GetReal: PROC [textViewer: Viewer, default: REAL] RETURNS [r: REAL]; GetBool: PROC [textViewer: Viewer] RETURNS [b: BOOL]; GetColor: PROC [textViewer: Viewer] RETURNS [color: Color, success: BOOL]; GetThreeReals: PROC [textViewer: Viewer] RETURNS [x, y, z: REAL]; GetNat: PROC [textViewer: Viewer] RETURNS [n: NAT]; SetReal: PROC [viewer: Viewer, real: REAL]; SetBool: PROC [viewer: Viewer, bool: BOOL]; SetColor: PROC [viewer: Viewer, color: Color]; SetThreeReals: PROC [viewer: Viewer, a, b, c: REAL]; END. ìFile: SVViewerTools.mesa Last edited by Bier on January 28, 1987 2:06:19 pm PST Copyright c 1984 by Xerox Corporation. All rights reserved. Contents: Basic functions for retrieving values from and writing values to text viewers ÊN˜Iheadšœ™Jšœ6™6Jšœ Ïmœ1™