<glass> ( owner child visible-rect -- glass )

Vocabulary

ui.gadgets.glass.private

Inputs

owner	an object
child	an object
visible-rect	an object

Outputs

glass

an object

Definition

USING: accessors kernel ui.gadgets ;

IN: ui.gadgets.glass.private

: <glass> ( owner child visible-rect -- glass )
    glass new swap >>visible-rect swap add-gadget swap >>owner ;