DIRECTORY Imager USING [Context, Trajectory, FONT], Rope USING [ROPE], JaMImagerContexts USING [DCList], JaMInternal USING [Frame], ViewerClasses USING [Viewer, NotifyProc, PaintProc]; JaMIPrivate: DEFINITIONS = { Frame: TYPE = JaMInternal.Frame; Info: TYPE = REF InfoRec; InfoRec: TYPE = MONITORED RECORD [ frame: Frame, viewer: ViewerClasses.Viewer, vdc: Imager.Context, --viewer's dc vw,vh: REAL, --window width and height in ViewCoordinates venabled: BOOLEAN _ TRUE, proc: PROC [Info], -- called by viewer paint proc dcList: JaMImagerContexts.DCList, trajectory: LIST OF Imager.Trajectory, typescript: ViewerClasses.Viewer, font: Imager.FONT, text: Rope.ROPE, bugflag, mouseflag: BOOLEAN, bugged: CONDITION, mouse: CONDITION, bugX, bugY: REAL, mouseX, mouseY: REAL ]; CreateInfo: PROC [frame: Frame] RETURNS [info: Info]; ForgetInfo: PROC [frame: Frame]; GetInfo: PROC [frame: Frame] RETURNS [info: Info]; SetBug: PROC [info: Info, x,y: REAL]; SetPlace: PROC [info: Info, x,y: REAL]; ReloadTIP: PROC; InputNotify: ViewerClasses.NotifyProc; Paint: ViewerClasses.PaintProc; ViewToUser: PROC [context: Imager.Context, vx,vy: REAL] RETURNS [x,y: REAL] ; }. nJaMIPrivate.mesa Implemented by JaMIContextsImpl.mesa Last Edited by: Stone, December 21, 1983 2:18 pm Źī˜J˜Jšœ™J™$Jšœ0™0J˜šĻk ˜ Jšœœœ˜)Jšœœœ˜Jšœœ ˜!Jšœ œ ˜Jšœœ!˜4J˜—Jšœ  œ˜J˜Jšœœ˜ J˜Jšœœœ ˜šœ œ œœ˜"J˜ J˜JšœĻc ˜"Jšœœž,˜9Jšœ œ˜Jšœœ ž˜1J˜!Jšœ œœ˜&J˜!Jšœ œ˜Jšœ œ˜Jšœœ˜Jšœ œ˜Jšœ œ˜Jšœ œ˜Jšœ˜J˜J˜—JšĻn œœœ˜5J˜JšŸ œœ˜ J˜JšŸœœœ˜2J˜JšŸœœœ˜%J˜JšŸœœœ˜'J˜JšŸ œœ˜J˜J˜&J˜Jš Ÿ œœ"œœœ˜MJ˜J˜J˜—…—–ņ