<<-- SceneQueueImpl.mesa: Queue management routines for Scenes>> <<-- last modified by Stolfi - August 12, 1983 8:17 pm>> DIRECTORY TIPTables USING [TIPScreenCoords], Rope USING [ROPE], TIPUser USING [InstantiateNewTIPTable, TIPTable], ViewerOps USING [RegisterViewerClass, CreateViewer, PaintViewer], Menus USING [Menu, MenuProc, CreateMenu, AppendMenuEntry, CreateEntry, MenuEntry, MenuLine], WindowManager USING [StartColorViewers], Real USING [Float], COGCart USING [Point, UnScalePoint, Box, ScaleFactors, BoxToBoxScale], COGHomo USING [Point, FinPt, ScalePoint, ScaleSeg], COGScene USING [Scene], COGSceneImpl USING [SceneRec, ClickProc, ...]; COGSceneQueueImpl: CEDAR MONITOR EXPORTS COGScenePrivate SHARES COGScene, List = BEGIN OPEN COGScene; ScheduleRepaint: PUBLIC PROC [sc: Scene, box: BoundingBox] = BEGIN sData: SceneData = NARROW[sc.data]; sData.repaintBox _ UnS.JoinBoxes[sData.repaintBox, box]; END; END.