<> <> <> <> <<>> DIRECTORY Imager USING [Context], SF USING [Box, Vec], Xl USING [Point, Size, TQ], XlBitmap USING [Bitmap], XTk USING [dontUse, Widget, WidgetSpec]; XTkBitmapScroller: CEDAR DEFINITIONS ~ BEGIN <<>> CreateBitmapScroller: PROC [widgetSpec: XTk.WidgetSpec ¬ [], scrolledCallBack: ScrolledCallBackProc ¬ NIL, scrollTQ: Xl.TQ ¬ NIL, scrollData: REF ¬ NIL, insideSize: Xl.Size ¬ [XTk.dontUse, XTk.dontUse]] RETURNS [XTk.Widget]; <> <> ScrolledCallBackProc: TYPE = PROC [scroller: XTk.Widget, pos: Xl.Point, data: REF]; <> <<>> SetBitmap: PROC [scroller: XTk.Widget, bitmap: XlBitmap.Bitmap, surfaceUnitsPerPixel: NAT ¬ 1, pos: Xl.Point ¬ [0, 0]]; <> <> GetBitmap: PROC [scroller: XTk.Widget] RETURNS [bitmap: XlBitmap.Bitmap, surfaceUnitsPerPixel: NAT]; <> CreateAndSetBitmap: PROC [scroller: XTk.Widget, size: SF.Vec, bpp: NAT ¬ 1, surfaceUnitsPerPixel: NAT ¬ 1, pos: Xl.Point ¬ [0, 0]]; <> CreateContext: PROC [scroller: XTk.Widget] RETURNS [context: Imager.Context]; <> ScrollTo: PROC [scroller: XTk.Widget, pos: Xl.Point ¬ [0, 0]]; <> GetScrollPos: PROC [scroller: XTk.Widget] RETURNS [Xl.Point]; <> <> <<>> GetVisibleBox: PROC [scroller: XTk.Widget] RETURNS [SF.Box]; <> <> <> Wait: PROC [scroller: XTk.Widget, server: BOOL ¬ FALSE]; <> <> <> GetImplData: PRIVATE PROC [scroller: XTk.Widget] RETURNS [REF]; <> << >> GetImplWidget: PROC [scroller: XTk.Widget] RETURNS [XTk.Widget]; <> << >> END.