<> <> 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; }.