Delay the cursor blink

2010-05-23 22:26:46 -05:00 · 2010-05-23 22:26:46 -05:00 · 54ce8be408
parent b3d6ab1d3b
commit 54ce8be408
1 changed files with 1 additions and 1 deletions
--- a/basis/ui/gadgets/editors/editors.factor
+++ b/basis/ui/gadgets/editors/editors.factor
@ -65,7 +65,7 @@ SYMBOL: blink-interval
 : start-blinking ( editor -- )
    [ stop-blinking ] [
        t >>blink
-        dup '[ _ blink-caret ] blink-interval get every
+        dup '[ _ blink-caret ] blink-interval get delayed-every
        >>blink-alarm drop
    ] bi ;