Rebol Programming/unview

USAGE:

UNVIEW /all /only face 

DESCRIPTION:

Closes window views, except main view.

UNVIEW is a function value.

REFINEMENTS

• /all -- Close all views, including main view
• /only
  • face -- Close a single view (Type: object)

SOURCE CODE

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
]