DIRECTORY Imager, ViewerClasses; SVViewerTools: 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 August 1, 1985 2:31:20 pm PDT 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šœ4™4Jšœ Οmœ1™