From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 24 May 2010 03:26:46 +0000 (-0500)
Subject: Delay the cursor blink
X-Git-Tag: 0.97~4669^2~95^2~4
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=54ce8be408798adb381621c0ead93ce1c5741e61

Delay the cursor blink
---

diff --git a/basis/ui/gadgets/editors/editors.factor b/basis/ui/gadgets/editors/editors.factor
index f4dcff4cbe..15d2146603 100644
--- 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 ;