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