<error-display> ( error-list -- gadget )


Vocabulary
ui.tools.error-list

Inputs
error-listan object


Outputs
gadgetan object


Definition
USING: accessors debugger kernel ui.gadgets ui.gadgets.panes
ui.gadgets.scrollers ui.gadgets.toolbar ui.gadgets.tracks
ui.tools.common ;

IN: ui.tools.error-list

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