radio-control

Vocabulary

ui.gadgets.buttons.private

Definition

USING: ui.gadgets.buttons ;

IN: ui.gadgets.buttons.private

TUPLE: radio-control < button value ;

Methods

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

M: radio-control model-changed
    2dup [ value>> ] same? >>selected? relayout-1 drop ;