<checkbox> ( model label -- checkbox )

Vocabulary

ui.gadgets.buttons

Inputs

model	an object
label	an object

Outputs

checkbox

an object

Definition

USING: accessors kernel ui.gadgets.buttons.private
ui.gadgets.labels ;

IN: ui.gadgets.buttons

: <checkbox> ( model label -- checkbox )
    <checkmark> label-on-right
    [ model>> toggle-model ] checkbox new-button swap >>model
    align-left ;