-- 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; }. Ê™˜Jš;ÏcCœYÏi1œÏk œŸœŸœŸœŸ œ ŸœÏnœŸœ=ŸœŸœŸœ"  œŸ œŸœŸœŸœ œŸ œŸœŸœŸœ œŸ œŸœ$Ÿœ œŸœ˜ø—…—ú™