BitmapViewer.mesa
Copyright (C) 1984, Xerox Corporation. All rights reserved.
Michael Plass, June 27, 1985 5:13:49 pm PDT
DIRECTORY
ImagerPixelMap USING [DeviceRectangle, PixelMap],
ViewerClasses USING [Viewer, ViewerFlavor, ViewerRec, HBltRule, VBltRule];
BitmapViewer: CEDAR DEFINITIONS
~ BEGIN OPEN ImagerPixelMap, ViewerClasses;
GetFlavor: PROC [bltH: HBltRule ← left, bltV: VBltRule ← top] RETURNS [ViewerFlavor];
The origin of the bitmap will be aligned as specified by the bltRules.
Create: PROC [info: ViewerRec ← [], paint: BOOL ← TRUE, bltH: HBltRule ← left, bltV: VBltRule ← top] RETURNS [Viewer];
Can also use ViewerOps.CreateViewer
SetBitmap: PROC [viewer: Viewer, bitmap: PixelMap];
Does not copy the bits.
TouchUp: PROC [viewer: Viewer, deviceRectangle: DeviceRectangle];
Forces repaint of part of the bitmap.
GetBitmap: PROC [viewer: Viewer] RETURNS [bitmap: PixelMap];
Does not copy the bits.
END.