ui.tools.listener: fix error bar display

db4
Slava Pestov 2010-05-30 16:09:51 -04:00
parent 709687e55f
commit b924c3623d
1 changed files with 1 additions and 0 deletions

View File

@ -195,6 +195,7 @@ TUPLE: listener-gadget < tool error-summary output scroller input ;
H{ { table-gap { 3 3 } } } [
[ [ [ icon>> write-image ] with-cell ] each ] with-row
] tabular-output
last-element off
{ "Press " { $command tool "common" show-error-list } " to view errors." }
print-element
] unless-empty ;