Rebol Programming/viewtop
USAGE: edit
VIEWTOP url /only
DESCRIPTION: edit
Display the REBOL viewtop
VIEWTOP is a function value.
ARGUMENTS edit
- url -- (Type: url file any-type)
REFINEMENTS edit
- /only -- Only if prefs/desktop option says so
SOURCE CODE edit
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 ]