JaMIPrivate.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Last Edited by: Stone, February 3, 1984 4:32:39 pm PST
Tim Diebert: August 1, 1985 12:52:02 pm PDT
DIRECTORY
Imager USING [Context],
ImagerFont USING [Font],
JaM USING [State],
JaMImagerContexts USING [DCList],
ViewerClasses USING [Viewer];
JaMIPrivate: CEDAR DEFINITIONS = {
State: TYPE = JaM.State;
Info: TYPE = REF InfoRec;
InfoRec: TYPE = MONITORED RECORD [
state: State,
typescript: ViewerClasses.Viewer,
viewer: ViewerClasses.Viewer,
vdc: Imager.Context, --viewer's dc
font: ImagerFont.Font,
venabled: BOOLEAN ← TRUE,
ipdc: Imager.Context ← NIL, -- Interpress's context
ipenabled: BOOL ← FALSE,
dcList: JaMImagerContexts.DCList,
bugflag, mouseflag: BOOLEAN,
bugged: CONDITION,
mouse: CONDITION,
bugX, bugY: REAL,
mouseX, mouseY: REAL
];
CreateInfo: PROC [state: State] RETURNS [info: Info];
ForgetInfo: PROC [state: State];
GetInfo: PROC [state: State] RETURNS [info: Info];
RegisterImager: PROC[state: State];
RegisterColor: PROC[state: State];
RegisterInterpress: PROC[state: State];
RegisterVector2: PROC [state: State];
}.