Rebol 程式設計/unview

用法

UNVIEW /all /only face 

描述

關閉視窗檢視，除了主檢視。

UNVIEW 是一個函式值。

細化

• /all -- 關閉所有檢視，包括主檢視
• /only
  • face -- 關閉單個檢視（型別：物件）

原始碼

unview: func [
    "Closes window views, except main view." 
    /all "Close all views, including main view" 
    /only face [object!] "Close a single view" 
    /local pane
][
    pane: head system/view/screen-face/pane 
    either only [remove find pane face] [
        either all [clear pane] [remove back tail pane]
    ] 
    show system/view/screen-face
]