-- 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, February 1, 1984 11:56:22 am PST

DIRECTORY
JaM USING [State],
ViewerClasses USING [Viewer],
Graphics USING [Context];

TJaMGraphics: CEDAR DEFINITIONS = {

State: TYPE = JaM.State;

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

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

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

Painter: PROCEDURE[proc: PROC [Graphics.Context], frame: State];

NotImplemented: SIGNAL;

}.