File: SVViewerTools.mesa
Last edited by Bier on August 1, 1985 2:31:20 pm PDT
Copyright © 1984 by Xerox Corporation. All rights reserved.
Contents: Basic functions for retrieving values from and writing values to text viewers
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.