new-button ( label quot class -- button )

Vocabulary

ui.gadgets.buttons

Inputs

label	an object
quot	an object
class	an object

Outputs

button

an object

Definition

USING: accessors kernel ui.gadgets.borders ui.gadgets.labels ;

IN: ui.gadgets.buttons

: new-button ( label quot class -- button )
    [ swap >label ] dip new-border swap >>quot ; inline