-- TJaMGraphics.mesa
-- Last edit by Paxton, July 13, 1982 2:31 pm

-- almost identical to JaMGraphics interface except takes frame arg to tell which viewer
-- Last Edited by: Stone, March 18, 1983 6:00 pm

DIRECTORY
JaMInternal USING [Frame],
ViewerClasses USING [Viewer],
Graphics USING [Context];

TJaMGraphics: DEFINITIONS = {

Frame: TYPE = JaMInternal.Frame;

Create: PROC [
frame: Frame, typescript: ViewerClasses.Viewer, iconic: BOOLEAN ← FALSE]
RETURNS [viewer: ViewerClasses.Viewer];

ViewerMouse: PROCEDURE[frame: Frame, click: BOOLEAN] RETURNS[x,y: INTEGER];

RealViewerMouse: PROCEDURE[frame: Frame, click: BOOLEAN] RETURNS[x,y: REAL];

Painter: PROCEDURE[proc: PROC [Graphics.Context], frame: Frame ← NIL];

NotImplemented: SIGNAL;

}.