DIRECTORY Rope, SVInterfaceTypes, SVSceneTypes, ViewerClasses; SVWindow: CEDAR DEFINITIONS = BEGIN EditToolData: TYPE = SVInterfaceTypes.EditToolData; Scene: TYPE = SVSceneTypes.Scene; SVData: TYPE = SVInterfaceTypes.SVData; Viewer: TYPE = ViewerClasses.Viewer; EditedProc: TYPE = PROC [svData: SVData, clientData: REF ANY]; CreateWindow: PROC [editToolData: EditToolData, scene: Scene, iconic: BOOL, paint: BOOL, workingDirectory: Rope.ROPE] RETURNS [svData: SVData, viewerPicture: Viewer]; ForegroundParts: TYPE = {triggerBag, alignBag, bitMap, none, sceneBag}; RestoreScreenAndInvariants: PROC [paintAction: ATOM, svData: SVData, remake: ForegroundParts _ triggerBag, backgndOK: BOOL _ FALSE, edited: BOOL _ TRUE, okToClearFeedback: BOOL _ TRUE]; RawPaint: PROC [paintProc: SVInterfaceTypes.DisplayContextProc, svData: SVData]; ReloadTipTable: PROC [event: LIST OF REF ANY, svData: SVData]; SaveCaretPos: PROC [svData: SVData]; NewCaretPos: PROC [svData: SVData]; SetCursorLooks: PROC [type: SVInterfaceTypes.GravityType, svData: SVData, on: BOOL _ TRUE]; END. πFile: SVWindow.mesa Last edited by Bier on December 18, 1982 1:46 am Copyright c 1984 by Xerox Corporation. All rights reserved. Author: Eric Bier on September 21, 1987 5:54:29 pm PDT Contents: Code to create a view onto a 3d scene. ΚŒ– "Mesa" style˜Iheadšœ™Iprocšœ0™0Jšœ Οmœ1™Lš Οn œžœ4žœ žœžœžœ)˜¦L˜Mšœžœ2˜GMšŸœžœžœCžœžœ žœžœž œ˜ΉMšŸœžœB˜PLš Ÿœžœ žœžœžœžœ˜>L˜MšŸ œžœ˜$MšŸ œžœ˜#M˜MšŸœžœ:žœžœ˜[Lšžœ˜—…—0¬