<radio-controls> ( model assoc parent quot: ( value model label -- gadget ) -- parent )

Vocabulary

ui.gadgets.buttons.private

Inputs

model	an object
assoc	an object
parent	an object
quot	a quotation with stack effect ( value model label -- gadget )

Outputs

parent

an object

Definition

USING: assocs kernel ui.gadgets ;

IN: ui.gadgets.buttons.private

:: <radio-controls>
    ( model assoc parent quot: ( value model label -- gadget ) -- parent )
    parent assoc [ model swap quot call add-gadget ] assoc-each
    ; inline