411 REFERENCE · Wikibooks
Rebol Programming/viewtop
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
USAGE:
VIEWTOP url /only
DESCRIPTION:
Display the REBOL viewtop
VIEWTOP is a function value.
ARGUMENTS
url -- (Type: url file any-type)
REFINEMENTS
/only -- Only if prefs/desktop option says so
SOURCE CODE
viewtop: func [
"Display the REBOL viewtop"
url [url! file! any-type!]
/only "Only if prefs/desktop option says so"
][
if all [only not user-prefs/desktop] [exit]
system/options/quiet: true
if block? ctx-viewtop [
ctx-viewtop: context ctx-viewtop
bind dtw-keymap ctx-viewtop
]
ctx-viewtop/init-desktop
if value? 'url [ctx-viewtop/show-folder :url]
do-events
]