Update code for model class renamings

[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 104b0f6aae093bdfe51828a9d1d040e993052860..a1c2dca23d04e3b91844f1a6f68efe09ad7323de 100644 (file)
--- a/basis/ui/gadgets/status-bar/status-bar.factor
+++ b/basis/ui/gadgets/status-bar/status-bar.factor
@@ -1,12 +1,12 @@
 ! Copyright (C) 2007, 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors models models.delay models.filter
+USING: accessors models models.delay models.arrow
 sequences ui.gadgets.labels ui.gadgets.tracks
 ui.gadgets.worlds ui.gadgets ui kernel calendar summary ;
 IN: ui.gadgets.status-bar
 
 : <status-bar> ( model -- gadget )
-    1/10 seconds <delay> [ "" like ] <filter> <label-control>
+    1/10 seconds <delay> [ "" like ] <arrow> <label-control>
     reverse-video-theme
     t >>root? ;