file: QuickViewer.mesa
Author: Frank Crow April 13, 1983 10:46 am
Last Edited by: Gomez, July 17, 1983 6:25 pm
DIRECTORY
Graphics USING [Context],
Rope USING [ ROPE ];
QuickViewer: CEDAR DEFINITIONS =
BEGIN
BuildViewer: PROC[ menuLabels: LIST OF ATOM,
ReDrawProc:
PROC[Graphics.Context],
QuitProc:
PROC[] ,
ButtonProc:
PROC[
ATOM,
REAL,
REAL],
viewerTitle: Rope.
ROPE ];
Make a viewer with the supplied menu labels. Use the supplied ReDrawProc when the screen must be redrawn (because the viewer changes size, etc.). Use the supplied QuitProc to clean up on program termination (which occurs when the viewer is destroyed.
DrawInViewer:
PROCEDURE [proc:
PROC [Graphics.Context]];
Callback procedure used to draw on display. QuickViewer will supply the graphics context to the supplied procedure then call it.
END.