
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.


   Œ  XTkBitmapWidgets.mesa
Copyright Ó 1988, 1989, 1990, 1991 by Xerox Corporation.  All rights reserved.
Christian Jacobi, October 21, 1988 1:13:50 pm PDT
Christian Jacobi, July 19, 1991 1:47 pm PDT


Creates a bitmap widget.
No bitmap bound to widget yet.
Changes the registered callbacks.
Not monitored.
Forces widget to display a new bitmap.  Returns immediately, maybe before bits are painted.  
Positions origin of sm at position "origin" of window.  
Not monitored.  

Returns currently displayed bitmap.  
Not monitored.  

Waits until all requests are "performed".
server: TRUE: waits until server acknowledges having seen requests.
server: FALSE: waits until requests are removed from internal buffer.
Conveniance procedure: creates context drawing into current bitmap of widget.
widget must have bitmap "set".
Conveniance procedure: creates bitmap and sets it 
Not monitored.  
Wizards only. 
 
 ÊE  –(cedarcode) style•NewlineDelimiter
˜ code™Kšœ
ÏeœC™NK™1K™+K™ —šÏk	œ˜
Kšœžœ˜Kšžœžœ˜Kšœžœ
˜Kšœ	žœ˜Kšœžœ˜K˜ —KšÏnœžœž˜#šœžœžœžœ˜K™ —Kšœžœ˜ KšœžœD˜[Kšœžœžœ9žœ˜ZK˜ šŸœžœ=žœžœžœžœ˜‚K™K™K˜ —š
Ÿœžœ/žœžœžœ˜WK™!Kšœ™K˜ —šŸ	œžœ;žœžœžœ#žœžœžœžœ˜¶K™]K™8K™K™ —š
Ÿ	œžœžœ%žœžœ˜mK™%K™K™ —šŸœžœ žœžœ˜8K™)Kšœžœ7™CKšœžœ8™EK˜ —šŸœžœ.žœžœ˜lK™MK™K˜ —š
Ÿœžœžœžœžœ˜gK™2K™K˜ —š
Ÿœžœžœžœžœ˜?K™K™—Kšžœ˜K˜ K˜ — …—    ø  
É  