Rebol Programming/hide-popup

From Wikibooks, open books for an open world
< Rebol Programming
Jump to navigation Jump to search

USAGE:[edit | edit source]

HIDE-POPUP /timeout 

DESCRIPTION:[edit | edit source]

(undocumented)

HIDE-POPUP is a function value.

REFINEMENTS[edit | edit source]

  • /timeout

SOURCE CODE[edit | edit source]

hide-popup: func [/timeout /local win-face][
    if not find pop-list pop-face [exit] 
    win-face: any [pop-face/parent-face system/view/screen-face] 
    remove find win-face/pane pop-face 
    remove back tail pop-list 
    if timeout [pop-face: pick pop-list length? pop-list] 
    show win-face
]