DIRECTORY Icons, Imager, Rope, GGBasicTypes, GGInterfaceTypes, GGModelTypes, ViewerClasses; GGWindow: CEDAR DEFINITIONS = BEGIN Point: TYPE = GGBasicTypes.Point; Scene: TYPE = GGModelTypes.Scene; Viewer: TYPE = ViewerClasses.Viewer; GGData: TYPE = GGInterfaceTypes.GGData; EditedProc: TYPE = PROC [ggData: GGData, clientData: REF ANY]; ForegroundParts: TYPE = {triggerBag, triggerBagNotSceneBag, alignBag, bitMap, none, sceneBag}; RestoreScreenAndInvariants: PROC [paintAction: ATOM, ggData: GGData, remake: ForegroundParts _ triggerBag, edited: BOOL _ TRUE, okToSkipCapture: BOOL]; SaveCaretPos: PROC [ggData: GGData]; NewCaretPos: PROC [ggData: GGData]; RegisterEditedProc: PROC [ggData: GGData, editedProc: EditedProc, clientData: REF ANY]; CreateWindow: PROC [scene: Scene, iconic: BOOL, paint: BOOL, workingDirectory: Rope.ROPE] RETURNS [ggData: GGData]; CreateChildViewer: PROC [ scene: Scene, wx, wy: INTEGER _ 0, ww, wh: INTEGER _ 0, cx, cy: INTEGER _ 0, cw, ch: INTEGER _ 0, parent: Viewer, workingDirectory: Rope.ROPE, clientData: REF ANY _ NIL, paint: BOOL _ TRUE] RETURNS [viewer: Viewer, ggData: GGData]; CreateGGData: PROC [scene: Scene, workingDirectory: Rope.ROPE] RETURNS [ggData: GGData]; InitIcons: PROC; -- called by UserProfileProc GetIcons: PROC RETURNS [panelIcon, noNameIcon, dirtyNoNameIcon, cleanIcon, dirtyIcon: Icons.IconFlavor]; ViewerToWorld: PROC [viewerPoint: Point, ggData: GGData] RETURNS [worldPoint: Point]; WorldToViewer: PROC [worldPoint: Point, ggData: GGData] RETURNS [viewerPoint: Point]; SetCursorLooks: PROC [type: GGInterfaceTypes.GravityType, ggData: GGData, off: BOOL _ FALSE]; END. δGGWindow.mesa Last edited by Bier on June 17, 1987 9:58:15 pm PDT Copyright c 1985, 1986 by Xerox Corporation. All rights reserved. Contents: Code to create a gargoyle tool. Also provides access to the state of a particular gargoyle viewer. Pier, November 3, 1988 5:02:44 pm PST Bier, September 11, 1991 5:35 pm PDT Gargoyle Viewer State This procedure is called from about 100 places in GGEventImpl*, and GGMouseEventImpl*. Some change has been made to the scene or to the alignment lines. Inform GGRefresh, GGMultiGravity, GGAlign and other interested parties. paintAction is an ATOM which will be passed to GGRefreshImpl.ActionAreaPaint. remake tells how much of the triggerBag => alignBag => foreground bitMap chain must be remade. A value of triggerBag means the whole chain will be remade. A value of none, means it is all OK. sceneBag is a special value which means that only the sceneTriggerBag needs to be remade. The values triggerBag and sceneBag cause the sceneBag to be rebuilt. bkgndOK should be TRUE only of the caller has made sure the background is up to date. It is always safe (but not always efficient) to set bkgndOK to FALSE. GargoyleData Class Procedures The caller (represented by ggData) wishes to be notified whenever his Gargoyle viewer is edited. The Gargoyle Viewer activeDoc is a REF to avoid compilation dependencies on the volatile EmbeddedButtons interface For embedding Gargoyle in settings other than a ViewerClasses.Viewer. Cooperation with Biscrollers Cursors Change the appearance of the cursor on the screen. The cursor shape indicates the gravity state: off, pointsPreferred, strictDistance Pier, December 5, 1985 10:29:19 am PST changes to: remove all references to camera. Add Viewer <=> World procs. Κ{˜Icode™ Kšœ3™3Kšœ Οmœ7™BšΟnœe™mKšœ%™%K™$—K˜šΟk ˜ KšœQ˜QK˜—KšžœŸœŸ œŸ˜#˜KšœŸœ˜!KšœŸœ˜!KšœŸœ˜$KšœŸœ˜'K˜—š œ ŸœŸœŸœŸœ˜>K˜—Kšœ™KšœŸœI˜^š žœŸœŸœ@ŸœŸœŸœ˜—Kšœβ™βKšΟb œŸœ7™MKš œΈŸœ’™βKš œ Ÿœ€Ÿœ™œ—K™Kšž œŸœ˜$Kšž œŸœ˜#K™K™šžœŸœ6ŸœŸœ˜WKšœ`™`—K˜K™Kš ž œŸœŸœ ŸœŸœŸœ˜sšžœŸœŸœŸœŸœŸœ-ŸœŸœŸœŸœ ŸœŸœŸœ"˜Kšœ^™^—šž œŸœ'ŸœŸœ˜XK™E—K™Kšž œŸœΟc˜-KšžœŸœŸœR˜hK˜K™Kšž œŸœ&Ÿœ˜UKšž œŸœ%Ÿœ˜UK˜K˜K™šžœŸœ;ŸœŸœ˜]K™†K™—KšŸœ˜šœ#Ÿ™&Kšœ Οr<™H—K™—…—hΗ