Rebol Programming/desktop

= USAGE: = DESKTOP url /only

= DESCRIPTION: = Display the REBOL viewtop

DESKTOP is a function value. = ARGUMENTS =
 * url -- (Type: url file any-type)

= REFINEMENTS =
 * /only -- Only if prefs/desktop option says so

= SOURCE CODE = 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 ]