< Rebol Programming

USAGE:

UNVIEW /all /only face

DESCRIPTION:

Closes window views, except main view.

UNVIEW is a function value.

/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
]

This article is issued from Wikibooks. The text is licensed under Creative Commons - Attribution - Sharealike. Additional terms may apply for the media files.