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

Using filled-border in status bar

db4
nicolas-p 2015-07-21 21:20:36 +02:00 committed by John Benediktsson
parent 547ca698d8
commit 48376ff10c
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -26,8 +26,7 @@ CONSTANT: status-bar-foreground COLOR: white
: open-status-window ( gadget title/attributes -- )
?attributes f <model> >>status <world>
dup status>> <status-bar>
{ 7 2 } <border> status-bar-background <solid> >>interior
{ 1 1 } >>fill
{ 7 2 } <filled-border> status-bar-background <solid> >>interior
f track-add
open-world-window ;