-- TJaMGraphicsPrivate.mesa
-- Last changed by Bill Paxton, July 8, 1982 8:43 am
-- Last changed by McGregor, June 10, 1982 4:09 pm

DIRECTORY
Graphics USING [Context],
GraphicsOps USING [FontRef, BitmapRef],
Spline USING [Ref],
JaMInternal USING [Frame],
ViewerClasses USING [Viewer];

TJaMGraphicsPrivate: DEFINITIONS = {

Frame: TYPE = JaMInternal.Frame;

Info: TYPE = REF InfoRec;
InfoRec: TYPE = MONITORED RECORD [
frame: Frame,
viewer: ViewerClasses.Viewer,
typescript: ViewerClasses.Viewer,
dc: Graphics.Context,
initdc: Graphics.Context,
font: GraphicsOps.FontRef,
text: REF TEXT,
spline: Spline.Ref,
bitmap: GraphicsOps.BitmapRef,
bugflag, mouseflag, capturedButtons: BOOLEAN ← FALSE,
bugged: CONDITION,
mouse: CONDITION,
bugX, bugY: REAL,
mouseX, mouseY: REAL,
proc: PROC [Info] -- called by viewer paint proc
];

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: PROCEDURE [self: ViewerClasses.Viewer, input: LIST OF REF ANY];

}.