popup

Vocabulary

ui.gadgets.glass.private

Definition

USING: ui.gadgets.wrappers ;

IN: ui.gadgets.glass.private

TUPLE: popup < wrapper owner ;

Methods

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

M: popup hide-glass-hook
    dup owner>> 2dup popup>> eq?
    [ f >>popup request-focus drop ] [ 2drop ] if ;