find-button ( gadget -- button )


Vocabulary
ui.gadgets.buttons.private

Inputs
gadgetan object


Outputs
buttonan object


Definition
USING: ui.gadgets ui.gadgets.buttons ;

IN: ui.gadgets.buttons.private

: find-button ( gadget -- button ) [ button? ] find-parent ;