-- ViewerOpsExtra.mesa; Edited by McGregor on August 11, 1982 9:15 am

DIRECTORY
ViewerClasses USING [Viewer];

ViewerOpsExtra: DEFINITIONS =

BEGIN OPEN ViewerClasses;

-- these interfaces should be moved to ViewerOps

OpenIcon: PROC [icon: Viewer, closeOthers: BOOL ← FALSE, bottom: BOOL ← TRUE,
 paint: BOOL ← TRUE] ;
 -- Open an icon. If closeOthers then other viewers in that column will first be closed.
 -- If bottom then the newly opened icon will be placed at the bottom of the column,
 -- otherwise at the top. If paint is FALSE then the caller has the responsibility to repaint the
 -- column via ComputeColumn.

GrowViewer: PROC [viewer: Viewer, paint: BOOL ← TRUE] ;
 -- close all other viewers in the column.

TopViewer: PROC [viewer: Viewer, paint: BOOL ← TRUE] ;
 -- move viewer to top of column.

BottomViewer: PROC [viewer: Viewer, paint: BOOL ← TRUE] ;
 -- move viewer to bottom of column.

MoveAboveViewer: PROC [altered, static: Viewer, paint: BOOL ← TRUE] ;
 -- move the altered viewer above the static viewer in the column.

MoveBelowViewer: PROC [altered, static: Viewer, paint: BOOL ← TRUE] ;
 -- move the altered viewer below the static viewer in the column.

END.