new accessors

2008-09-02 13:02:58 -05:00 · 2008-09-02 13:02:58 -05:00 · a512141d3a
parent 09cce11af7
commit a512141d3a
1 changed files with 1 additions and 1 deletions
--- a/extra/lcd/lcd.factor
+++ b/extra/lcd/lcd.factor
@ -26,7 +26,7 @@ IN: lcd
 : <time-display> ( timestamp -- gadget )
    [ hh:mm:ss lcd ] <filter> <label-control>
    "99:99:99" lcd over set-label-string
-    monospace-font over set-label-font ;
+    monospace-font >>font ;

 : time-window ( -- )
    [ time get <time-display> "Time" open-window ] with-ui ;