<> <> << >> DIRECTORY Rope USING [ROPE], ViewerClasses USING [Viewer]; DeskTops: DEFINITIONS = BEGIN OPEN ViewerClasses; DeskTop: TYPE = Viewer; <> Create: PROC [name: Rope.ROPE] RETURNS [desktop: DeskTop]; <> <<>> FlyTo: PROC [desktop: DeskTop]; <> <<>> MoveViewer: PROC[viewer: Viewer, desktop: DeskTop]; <> <<>> ClearIcons: PROC; <> <<>> <> <> <<>> END . . . <<>> <<>> << >>