Vocabulary
ui.gadgets.glass

Inputs and outputs

owner	a gadget
popup	a gadget
visible-rect	a rect

Word description
Displays popup in the glass layer of the window containing owner as a popup.

This word differs from show-glass in two respects:

•	The popup is stored in the owner's popup slot; the owner can call pass-to-popup to pass keyboard gestures to the popup
•	Pressing ESC with the popup visible will hide it

Definition

USING: accessors kernel ui.gadgets.glass.private ;

IN: ui.gadgets.glass

: show-popup ( owner popup visible-rect -- )
[ [ dup dup popup>> [ hide-glass ] when* ] dip <popup> ] dip
[ drop >>popup drop ] [ show-glass ] 3bi ;