Rebol Programming/scroll-drag

= USAGE: = SCROLL-DRAG face /back /page

= DESCRIPTION: = Move the scroller drag bar

SCROLL-DRAG is a function value. = ARGUMENTS =
 * face -- the scroller to modify (Type: any)

= REFINEMENTS =
 * /back -- move backward
 * /page -- move each time by one page

= SOURCE CODE = scroll-drag: func [ "Move the scroller drag bar" face "the scroller to modify" /back "move backward" /page "move each time by one page" ][   any [ all [back page move-drag face/pane/2 face/page] all [back move-drag face/pane/2 face/step] all [page move-drag face/pane/3 face/page] move-drag face/pane/3 face/step ] ]