<error-toggle> ( -- model gadget )

Vocabulary

ui.tools.error-list

Inputs

None

Outputs

model	an object
gadget	an object

Definition

USING: accessors assocs kernel models models.mapping namespaces
source-files.errors ;

IN: ui.tools.error-list

: <error-toggle> ( -- model gadget )
    error-types get [ fatal?>> <model> ] assoc-map
    [ [ [ error-icon ] dip ] assoc-map <checkboxes> ]
    [ <mapping> ] bi ;