BitmapViewer:
CEDAR
DEFINITIONS ~
BEGIN
PixelMap: TYPE ~ ImagerPixelMaps.PixelMap;
DeviceRectangle: TYPE ~ ImagerPixelMaps.DeviceRectangle;
Viewer: TYPE ~ ViewerClasses.Viewer;
flavor: ViewerClasses.ViewerFlavor;
Create:
PROC [info: ViewerClasses.ViewerRec ← [], paint:
BOOL ←
TRUE]
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.