 TUPLE: error-display < track ;
 
 : <error-display> ( error-list -- gadget )
-    vertical error-display new-track
-        add-toolbar
+    vertical error-display new-track with-lines
         swap error>> >>model
-        dup model>> [ [ print-error ] when* ] <pane-control> <scroller> 1 track-add ;
+        dup model>> [ [ print-error ] when* ] <pane-control>
+        margins <scroller> white-interior 1 track-add 
+        add-toolbar ;
 
 : com-inspect ( error-display -- )
     control-value [ inspector ] when* ;

        dup <error-table> >>error-table
        dup <error-display> >>error-display
    :> error-list
    error-list vertical <track>
        { 5 5 } >>gap
        error-list <error-list-toolbar> f track-add
        error-list source-file-table>> <scroller> "Source files" <labeled-gadget> 1/4 track-add
        error-list error-table>> <scroller> "Errors" <labeled-gadget> 1/4 track-add
        error-list error-display>> "Details" <labeled-gadget> 1/2 track-add
    { 5 5 } <filled-border> 1 track-add ;

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

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.buttons ui.gadgets.borders ui.gadgets.colors ui.gadgets.lines ui.gadgets.packs
ui.gadgets.labels ui.gadgets.toolbar ui.gadgets.status-bar ui.baseline-alignment ui.images
compiler.errors tools.errors tools.errors.model ;
IN: ui.tools.error-list

