-- TJaMGraphics.mesa
-- Last edit by Paxton, July 8, 1982 8:37 am

-- almost identical to JaMGraphics interface except takes frame arg to tell which viewer

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;

}.