<> <> <> <<>> 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]; <> Create: PROC [info: ViewerRec _ [], paint: BOOL _ TRUE, bltH: HBltRule _ left, bltV: VBltRule _ top] RETURNS [Viewer]; <> <<>> SetBitmap: PROC [viewer: Viewer, bitmap: PixelMap]; <> <<>> TouchUp: PROC [viewer: Viewer, deviceRectangle: DeviceRectangle]; <> <<>> GetBitmap: PROC [viewer: Viewer] RETURNS [bitmap: PixelMap]; <> <<>> END.