Delay the cursor blink

diff --git a/basis/ui/gadgets/editors/editors.factor b/basis/ui/gadgets/editors/editors.factor
index f4dcff4cbe605db668ce9b4f67eac1cfe3d36a1f..15d21466032dccccb7c31f106cc5f12c6a62b4ab 100644 (file)
--- 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 ;