[Cyan]<PreISL>JaMImager>JaMImager.mesa!2

JaMImager.mesa

Last edit by Stone, December 19, 1983 4:57 pm

DIRECTORY

JaMInternal USING [Frame],

ViewerClasses USING [Viewer],

Imager USING [Context];

JaMImager: 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: REAL];

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

NotImplemented: SIGNAL;