<<>> <> <> <> <> <<>> DIRECTORY Xl USING [Point], XTk USING [Class, Widget, WidgetSpec]; <<>> XTkXScroller: CEDAR DEFINITIONS ~ BEGIN <<>> <> <<>> <> <<>> <> XScroller: TYPE = XTk.Widget; xScrollerClass: READONLY XTk.Class; <> CreateXScroller: PROC [widgetSpec: XTk.WidgetSpec ¬ [], child: XTk.Widget ¬ NIL, bindx, bindy: BOOL ¬ FALSE] RETURNS [xScroller: XScroller]; <> <<>> IsXScroller: PROC [widget: XTk.Widget] RETURNS [BOOL]; <> Child: PROC [xScroller: XScroller] RETURNS [child: XTk.Widget]; <> ReplaceChild: PROC [xScroller: XScroller, child: XTk.Widget, delayed: BOOL ¬ FALSE, preventDestructionOfOldChild: BOOL ¬ FALSE]; <> GetOffset: PROC [xScroller: XScroller] RETURNS [p: Xl.Point]; <> SetOffset: PROC [xScroller: XScroller, p: Xl.Point]; <> SetBindXY: PROC [xScroller: XScroller, bindx, bindy: BOOL]; <> <> END.