411 REFERENCE · Wikibooks
Rebol Programming/scroll-drag
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
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
]
]