steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Set blink-alarm to f after we stop it

db4
Slava Pestov 2008-11-20 22:15:07 -06:00
parent decdcbe120
commit 53646a076b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/ui/gadgets/editors/editors.factor
View File

@ -53,7 +53,7 @@ focused? blink blink-alarm ;
dup '[ _ blink-caret ] 750 milliseconds every >>blink-alarm drop ; dup '[ _ blink-caret ] 750 milliseconds every >>blink-alarm drop ;
: stop-blinking ( editor -- ) : stop-blinking ( editor -- )
blink-alarm>> cancel-alarm ; [ [ cancel-alarm ] when* f ] change-blink-alarm drop ;
: restart-blinking ( editor -- ) : restart-blinking ( editor -- )
dup focused?>> [ dup focused?>> [