VirtualDesktops.mesa; Edited by McGregor on October 25, 1982 9:23 am
Last Edited by: Maxwell, December 17, 1982 10:05 am
DIRECTORY
Rope USING [ROPE],
ViewerClasses USING [Column, Viewer],
ViewerOps USING [EnumProc];
VirtualDesktops: CEDAR DEFINITIONS = BEGIN
Each virtual desktop is a window tree, exactly one of which is shown to the user at any one time.
nVDesktops: CARDINAL = 9 ;
VirtualDesktop: TYPE = [0..nVDesktops) ;
TransferViewer:
PROC [viewer: ViewerClasses.Viewer, from: VirtualDesktop ← currentVDesktop,
to: VirtualDesktop] ;
Transfer a viewer from one window tree to another. If called from outside the window manager, the viewer should be iconic.
FlyTo:
PROC [to: VirtualDesktop] ;
Move to a Virtual Desktop under program control.
currentVDesktop:
READONLY VirtualDesktop ;
The VDesktop currently displayed.
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] ;
Like ViewerOps.FindViewer, but will search all desktops.
GetRoot:
PROC [vd: VirtualDesktop ← currentVDesktop]
RETURNS [viewers:
ARRAY ViewerClasses.Column
OF ViewerClasses.Viewer] ;
Returns root viewer array.
EnumerateViewers:
PROC [enum: ViewerOps.EnumProc] ;
Enumerates all top-level viewers on all desktops.
END.