Rebol Programming/hide-popup
Appearance
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 ]