411 REFERENCE · Wikibooks
Rebol Programming/hide-popup
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
USAGE:
HIDE-POPUP /timeout
DESCRIPTION:
(undocumented)
HIDE-POPUP is a function value.
REFINEMENTS
/timeout
SOURCE CODE
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
]