 } define-command-map
 
 : <error-list-toolbar> ( error-list -- toolbar )
-    [ <toolbar> ] [ error-toggle>> "Show errors:" label-on-left add-gadget ] bi ;
+    [ <toolbar> ] [ error-toggle>> "Show errors:" label-on-left add-gadget ] bi
+    format-toolbar ;
 
 : <error-model> ( visible-errors model -- model' )
     [ swap '[ error-type _ at ] filter ] <smart-arrow> ;

namespaces summary locals ui ui.commands ui.gadgets ui.gadgets.panes
ui.gadgets.tables ui.gadgets.labeled ui.gadgets.tracks ui.gestures
ui.operations ui.tools.browser ui.tools.common ui.gadgets.scrollers
ui.tools.inspector ui.gadgets.status-bar
ui.gadgets.buttons ui.gadgets.borders ui.gadgets.packs
ui.gadgets.labels ui.baseline-alignment ui.images
compiler.errors tools.errors tools.errors.model ;
IN: ui.tools.error-list


        dup <error-table> >>error-table
        dup <error-display> >>error-display
    :> error-list
    error-list vertical <track> with-lines
        error-list <error-list-toolbar> f track-add
        error-list source-file-table>> margins <scroller> white-interior
        "Source files" source-files-color <labeled-gadget> 1/4 track-add
        error-list error-table>> margins <scroller> white-interior
        "Errors" errors-color <labeled-gadget> 1/4 track-add
        error-list error-display>>
        "Details" details-color <labeled-gadget> 1/2 track-add
        1 track-add ;

M: error-list-gadget focusable-child*
    source-file-table>> ;
