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
]