<checkbox> ( model label -- checkbox )


Vocabulary
ui.gadgets.buttons

Inputs
modelan object
labelan object


Outputs
checkboxan 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 ;