ViewerBLT.mesa; Written by S. McGregor
Last Edited by McGregor, July 21, 1983 10:50 am
Last Edited by: Maxwell, May 24, 1983 10:31 am
Last Edited by: Pausch, August 17, 1983 5:06 pm
DIRECTORY
ViewerClasses USING [Column, Viewer];
ViewerBLT: CEDAR DEFINITIONS = BEGIN OPEN ViewerClasses;
InternalPaintColumn: PROC [column: Column, paintIcons: BOOL ← TRUE];
Successive calls to InternalPaintColumn will blit bitmaps around based on state of the screen after the prior call. It is assumed that the caller has already locked the column. 'paintIcons' tells the procedure whether or not to repaint any icons that will become visible because of this paint.
ChangeMenuHeight: PUBLIC PROC[viewer: Viewer, delta: INTEGER];
ChangeNumberOfLines: PROC[viewer: Viewer, newLines: [0..5)];
END.