<> <> <<>> DIRECTORY Rope USING [ROPE], ViewerClasses USING [Column, Viewer], ViewerOps USING [EnumProc]; VirtualDesktops: CEDAR DEFINITIONS = BEGIN <> nVDesktops: CARDINAL = 9 ; VirtualDesktop: TYPE = [0..nVDesktops) ; TransferViewer: PROC [viewer: ViewerClasses.Viewer, from: VirtualDesktop _ currentVDesktop, to: VirtualDesktop] ; <> FlyTo: PROC [to: VirtualDesktop] ; <> currentVDesktop: READONLY VirtualDesktop ; <> GetName: PROC [vd: VirtualDesktop _ currentVDesktop] RETURNS [name: Rope.ROPE] ; SetName: PROC [name: Rope.ROPE, vd: VirtualDesktop _ currentVDesktop] ; FindViewer: PROC [name: Rope.ROPE] RETURNS [viewer: ViewerClasses.Viewer, desktop: VirtualDesktop] ; <> GetRoot: PROC [vd: VirtualDesktop _ currentVDesktop] RETURNS [viewers: ARRAY ViewerClasses.Column OF ViewerClasses.Viewer] ; <> EnumerateViewers: PROC [enum: ViewerOps.EnumProc] ; <> END.