ui.theme: updates to color scheme.

[factor.git] / basis / ui / gadgets / status-bar / status-bar.factor

diff --git a/basis/ui/gadgets/status-bar/status-bar.factor b/basis/ui/gadgets/status-bar/status-bar.factor
index 9d1b3ba704c37a88682a4aa70a9d8abfd7d1a559..73b763c59f234b6f3d685c90dd1c5081f9d5d532 100644 (file)
--- a/basis/ui/gadgets/status-bar/status-bar.factor
+++ b/basis/ui/gadgets/status-bar/status-bar.factor
@@ -3,12 +3,9 @@
 USING: accessors calendar colors.constants fonts kernel models
 models.arrow models.delay sequences summary ui
 ui.gadgets.borders ui.gadgets.labels ui.gadgets.tracks
-ui.gadgets.worlds ui.pens.solid ui.private ;
+ui.gadgets.worlds ui.pens.solid ui.private ui.theme ;
 IN: ui.gadgets.status-bar
 
-CONSTANT: status-bar-background COLOR: FactorDarkSlateBlue
-CONSTANT: status-bar-foreground COLOR: white
-
 : status-bar-font ( -- font )
     sans-serif-font clone
     status-bar-background >>background
@@ -26,8 +23,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 ;