Rebol 编程/view

用法

VIEW view-face /new /offset xy /options opts /title text 

描述

显示一个窗口界面。

VIEW 是一个函数值。

参数

• view-face -- (类型：对象)

细化

• /new -- 创建一个新窗口并立即返回
• /offset
  • xy -- 窗口在屏幕上的偏移量 (类型：对)
• /options
  • opts -- 窗口选项 [no-title no-border resize] (类型：块字)
• /title
  • text -- 窗口栏标题 (类型：字符串)

源代码

view: func [
    "Displays a window face." 
    view-face [object!] 
    /new "Creates a new window and returns immediately" 
    /offset xy [pair!] "Offset of window on screen" 
    /options opts [block! word!] "Window options [no-title no-border resize]" 
    /title text [string!] "Window bar title" 
    /local scr-face
][
    scr-face: system/view/screen-face 
    if find scr-face/pane view-face [return view-face] 
    either any [new empty? scr-face/pane] [
        view-face/text: any [
            view-face/text 
            all [system/script/header system/script/title] 
            copy ""
        ] 
        new: all [not new empty? scr-face/pane] 
        append scr-face/pane view-face
    ] [change scr-face/pane view-face] 
    if all [
        system/view/vid 
        view-face/feel = system/view/vid/vid-face/feel
    ] [
        view-face/feel: window-feel
    ] 
    if offset [view-face/offset: xy] 
    if options [view-face/options: opts] 
    if title [view-face/text: text] 
    show scr-face 
    if new [do-events] 
    view-face
]