<radio-control> ( value model label -- control )

Vocabulary

ui.gadgets.buttons.private

Inputs

value	an object
model	an object
label	an object

Outputs

control

an object

Definition

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

IN: ui.gadgets.buttons.private

: <radio-control> ( value model label -- control )
    [ [ value>> ] keep set-control-value ] radio-control
    new-button swap >>model swap >>value align-left ; inline