Rebol 编程/桌面
外观
< Rebol 编程
DESKTOP url /only
显示 REBOL 视图顶部
DESKTOP 是一个函数值。
- url -- (类型:url 文件 任何类型)
- /only -- 仅当 prefs/desktop 选项表明如此时
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
]