Set blink-alarm to f after we stop it

2008-11-20 22:15:07 -06:00 · 2008-11-20 22:15:07 -06:00 · 53646a076b
parent decdcbe120
commit 53646a076b
1 changed files with 1 additions and 1 deletions
--- a/basis/ui/gadgets/editors/editors.factor
+++ b/basis/ui/gadgets/editors/editors.factor
@ -53,7 +53,7 @@ focused? blink blink-alarm ;
    dup '[ _ blink-caret ] 750 milliseconds every >>blink-alarm drop ;

 : stop-blinking ( editor -- )
-    blink-alarm>> cancel-alarm ;
+    [ [ cancel-alarm ] when* f ] change-blink-alarm drop ;

 : restart-blinking ( editor -- )
    dup focused?>> [