<popup> ( owner gadget -- popup )

Vocabulary

ui.gadgets.glass.private

Inputs

owner	an object
gadget	an object

Outputs

popup

an object

Definition

USING: accessors kernel ui.gadgets.wrappers ;

IN: ui.gadgets.glass.private

: <popup> ( owner gadget -- popup )
    popup new-wrapper swap >>owner ; inline