File: SVWindow.mesa
Last edited by Bier on December 18, 1982 1:46 am
Copyright © 1984 by Xerox Corporation. All rights reserved.
Author: Eric Bier on July 12, 1987 1:49:34 pm PDT
Contents: Code to create a view onto a 3d scene.
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;
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.