ui.gadgets.status-bar: use color constants.

diff --git a/basis/ui/gadgets/status-bar/status-bar.factor b/basis/ui/gadgets/status-bar/status-bar.factor
index ad1d4e8560396ad9d79280eb43d5c5bd989ab292..db1c80579a72a1c0922d3633b77753e1fa998def 100644 (file)
--- a/basis/ui/gadgets/status-bar/status-bar.factor
+++ b/basis/ui/gadgets/status-bar/status-bar.factor
@@ -1,18 +1,22 @@
 ! Copyright (C) 2007, 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors calendar colors.constants fonts kernel models
-models.arrow models.delay sequences summary ui ui.gadgets.labels
-ui.gadgets.tracks ui.gadgets.worlds ui.pens.solid ui.private ;
+models.arrow models.delay sequences summary ui
+ui.gadgets.borders ui.gadgets.labels ui.gadgets.tracks
+ui.gadgets.worlds ui.pens.solid ui.private ;
 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
-    COLOR: FactorDarkSlateBlue >>background
-    COLOR: white >>foreground ;
+    status-bar-background >>background
+    status-bar-foreground >>foreground ;
 
 : status-bar-theme ( label -- label )
     status-bar-font >>font
-    COLOR: FactorDarkSlateBlue <solid> >>interior ;
+    status-bar-background <solid> >>interior ;
 
 : <status-bar> ( model -- gadget )
     1/10 seconds <delay> [ "" like ] <arrow> <label-control>