-- 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. ส๊– "Mesa" style˜IprocšZฯcFœฯk œžœž œžœžœ1œฯnœžœžœžœ žœžœ žœžœYœTœbœœŸ œžœžœžœ*œŸ œžœžœžœ!œŸ œžœžœžœ$œŸœžœ"žœžœBœŸœžœ"žœžœBœžœ˜ซ —…—ฎž