steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Margins 

Margins increased in the listener and status bar.
db4
nicolas-p 2015-07-18 13:32:39 +02:00 committed by John Benediktsson
parent bf74e394ba
commit 1371cb4090
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/ui/gadgets/status-bar/status-bar.factor
View File

@ -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 -- )

4
basis/ui/tools/listener/listener.factor
View File

@ -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 ;