ViewersWorldTypes.mesa
Copyright Ó 1988, 1991, 1992 by Xerox Corporation. All rights reserved.
Bier, March 5, 1991 7:14 pm PST
Willie-s, October 9, 1991 5:07 pm PDT
Christian Jacobi, March 3, 1992 2:27 pm PST
Michael Plass, February 25, 1992 1:42 pm PST
Kenneth A. Pier, August 5, 1992 12:29 pm PDT
Contents: The record type representing a single ViewersWorld. This interface refers to concrete types. Only implementation modules and private interfaces should refer to this module.
DIRECTORY
Atom, CursorTypes, Imager, InputFocus, KeyMappingTypes, Rope, TIPTypes, TIPPrivate, ViewerClasses, ViewerScreenTypes, ViewersWorldClasses;
ViewersWorldTypes: CEDAR DEFINITIONS = BEGIN
ContextList: TYPE ~ LIST OF Imager.Context;
CursorArray: TYPE = CursorTypes.CursorArray;
Focus: TYPE = InputFocus.Focus;
Screen: TYPE = ViewerScreenTypes.Screen;
Viewer: TYPE = ViewerClasses.Viewer;
Ref: TYPE = REF ViewersWorldObj;
ViewersWorldObj:
TYPE =
RECORD [
focusTIP: TIPPrivate.TIPClient,
mapping: KeyMappingTypes.Mapping,
inputEnabled: BOOL ¬ FALSE,
outputEnabled: BOOL ¬ FALSE,
currentFocus: Focus ¬ NIL,
forkNewNotifier:
BOOL ¬
TRUE,
If forkNewNotifier=TRUE, MasterNotifyProc and MasterButtonProc will fork a new notifier (and destroy the old one) when they detect AMEvents2.Debugging.
captureProc: ViewerClasses.NotifyProc ¬ NIL, -- improved input handling for full-screen actions
captureTIP: TIPTypes.TIPTable ¬ NIL, -- TIP Table associated with the capture.
captureViewer: Viewer ¬ NIL, -- focus data private to the capture.
width, height: NAT ¬ 0,
contextPool: ARRAY Screen OF ContextList ¬ ALL[NIL],
contextPoolOverflows: ARRAY Screen OF INT ¬ ALL[0],
class: ViewersWorldClass,
screenServerData: REF,
properties: Atom.PropList ¬ NIL
];
ViewersWorldClass: TYPE = ViewersWorldClasses.ViewersWorldClass;
END.