diff --git a/basis/ui/gadgets/status-bar/status-bar.factor b/basis/ui/gadgets/status-bar/status-bar.factor index db1c80579a..c1c850495e 100644 --- a/basis/ui/gadgets/status-bar/status-bar.factor +++ b/basis/ui/gadgets/status-bar/status-bar.factor @@ -25,7 +25,10 @@ CONSTANT: status-bar-foreground COLOR: white : open-status-window ( gadget title/attributes -- ) ?attributes f >>status - dup status>> f track-add + dup status>> + { 7 2 } COLOR: FactorDarkSlateBlue >>interior + { 1 1 } >>fill + f track-add open-world-window ; : show-summary ( object gadget -- ) diff --git a/basis/ui/tools/listener/listener.factor b/basis/ui/tools/listener/listener.factor index 62bc9e0c55..0a42f9a925 100644 --- a/basis/ui/tools/listener/listener.factor +++ b/basis/ui/tools/listener/listener.factor @@ -221,7 +221,9 @@ TUPLE: listener-gadget < tool error-summary output scroller input ; vertical listener-gadget new-track add-toolbar init-input/output - dup output>> >>scroller + dup output>> + { 7 7 } { 1 1 } >>fill + >>scroller dup scroller>> 1 track-add init-error-summary ;