parent
bf74e394ba
commit
1371cb4090
|
@ -25,7 +25,10 @@ CONSTANT: status-bar-foreground COLOR: white
|
||||||
|
|
||||||
: open-status-window ( gadget title/attributes -- )
|
: open-status-window ( gadget title/attributes -- )
|
||||||
?attributes f <model> >>status <world>
|
?attributes f <model> >>status <world>
|
||||||
dup status>> <status-bar> f track-add
|
dup status>> <status-bar>
|
||||||
|
{ 7 2 } <border> COLOR: FactorDarkSlateBlue <solid> >>interior
|
||||||
|
{ 1 1 } >>fill
|
||||||
|
f track-add
|
||||||
open-world-window ;
|
open-world-window ;
|
||||||
|
|
||||||
: show-summary ( object gadget -- )
|
: show-summary ( object gadget -- )
|
||||||
|
|
|
@ -221,7 +221,9 @@ TUPLE: listener-gadget < tool error-summary output scroller input ;
|
||||||
vertical listener-gadget new-track
|
vertical listener-gadget new-track
|
||||||
add-toolbar
|
add-toolbar
|
||||||
init-input/output
|
init-input/output
|
||||||
dup output>> <scroller> >>scroller
|
dup output>>
|
||||||
|
{ 7 7 } <border> { 1 1 } >>fill
|
||||||
|
<scroller> >>scroller
|
||||||
dup scroller>> 1 track-add
|
dup scroller>> 1 track-add
|
||||||
init-error-summary ;
|
init-error-summary ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue