<checkboxes> ( alist -- gadget )

Vocabulary

ui.tools.error-list

Inputs

alist

an object

Outputs

gadget

an object

Definition

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

IN: ui.tools.error-list

: <checkboxes> ( alist -- gadget )
    [ <shelf> { 15 0 } >>gap ] dip
    [ swap <checkbox> add-gadget ] assoc-each ;