-- File: SVViewerTools.mesa
-- Last edited by Bier on December 18, 1982 1:25 am
-- Author: Eric Bier on November 15, 1982 11:32 pm
-- Contents: Basic functions for retrieving values from and writing values to text viewers

DIRECTORY
 GraphicsColor,
 ViewerClasses;

SVViewerTools: DEFINITIONS =
BEGIN

Color: TYPE = GraphicsColor.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];

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.