[Cyan]<PreISLCedar>TempViewers>ViewerBLT.mesa!1

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

Last Edited by: Wyatt, November 10, 1983 3:25 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.

ChangeHeader: PUBLIC PROC[viewer: Viewer];

Repaint the viewer because its header has changed (for example, a menu line has been added or removed). Preserve as much of the client area as possible by doing a blt.

END.