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, 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. † 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. If forkNewNotifier=TRUE, MasterNotifyProc and MasterButtonProc will fork a new notifier (and destroy the old one) when they detect AMEvents2.Debugging. Κν•NewlineDelimiter –(cedarcode) style™codešœ™Kšœ Οeœ<™HKšœ™K™%K™+K™,K™,K˜KšœΉ™ΉK™—šΟk ˜ K˜Š—K˜Kšœžœž œž˜,K˜Kšœ žœžœžœ˜+Kšœ žœ˜,Kšœžœ˜Kšœžœ˜(Kšœžœ˜$K˜Kšœžœžœ˜ šœžœžœ˜ Kšœ˜K˜!Kšœžœžœ˜Kšœžœžœ˜Kšœžœ˜šœžœžœ˜Kšœžœ€™——Kšœ(žœΟc2˜_Kšœ žœŸ)˜NKšœžœŸ%˜BKšœžœ˜Kš œ žœžœžœžœ˜4Kš œžœžœžœžœ˜3K˜Kšœžœ˜Kšœž˜!Kšœ˜K˜—Kšœžœ)˜@K˜Kšžœ˜K˜—…—–