<> <> <> <> <<>> DIRECTORY Imager USING [Context], SF USING [Box, maxBox, Vec], Xl USING [Point], XlBitmap USING [Bitmap], XTk USING [Widget, WidgetSpec]; XTkBitmapWidgets: CEDAR DEFINITIONS ~ BEGIN OPEN Xl; <<>> BitmapWidget: TYPE = XTk.Widget; BitmapEventReason: TYPE = {createWindow, resize, map, unmap, destroyWindow, destroyWidget}; BitmapEventProc: TYPE = PROC [widget: BitmapWidget, reason: BitmapEventReason, data: REF]; CreateBitmapWidget: PROC [widgetSpec: XTk.WidgetSpec ¬ [], notify: BitmapEventProc ¬ NIL, data: REF ¬ NIL] RETURNS [BitmapWidget]; <> <> SetCallbacks: PROC [bmw: BitmapWidget, notify: BitmapEventProc ¬ NIL, data: REF ¬ NIL]; <> <> SetBitmap: PROC [widget: BitmapWidget, bitmap: XlBitmap.Bitmap, restrict: SF.Box ¬ SF.maxBox, origin: Xl.Point ¬ [0, 0], immediateRefresh: BOOL ¬ TRUE, retainRefreshs: BOOL ¬ FALSE]; <> <> <> <<>> GetBitmap: PROC [widget: BitmapWidget] RETURNS [bitmap: XlBitmap.Bitmap, restrict: SF.Box, origin: Xl.Point]; <> <> <<>> Wait: PROC [widget: BitmapWidget, server: BOOL ¬ FALSE]; <> <> <> CreateContext: PROC [widget: BitmapWidget, surfaceUnitsPerPixel: NAT ¬ 1] RETURNS [context: Imager.Context]; <> <> CreateAndSetBitmap: PROC [widget: BitmapWidget, size: SF.Vec, bpp: NAT ¬ 1, origin: Xl.Point ¬ [0, 0]]; <> <> GetImplData: PRIVATE PROC [widget: BitmapWidget] RETURNS [REF]; <> << >> END.