跳转到内容

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
]
华夏公益教科书