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

Make blink interval configurable

db4
Slava Pestov 2008-11-20 23:29:16 -06:00
parent 53646a076b
commit 5911ad913f
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -48,9 +48,13 @@ focused? blink blink-alarm ;
: blink-caret ( editor -- ) : blink-caret ( editor -- )
[ not ] change-blink relayout-1 ; [ not ] change-blink relayout-1 ;
SYMBOL: blink-interval
750 milliseconds blink-interval set-global
: start-blinking ( editor -- ) : start-blinking ( editor -- )
t >>blink t >>blink
dup '[ _ blink-caret ] 750 milliseconds every >>blink-alarm drop ; dup '[ _ blink-caret ] blink-interval get every >>blink-alarm drop ;
: stop-blinking ( editor -- ) : stop-blinking ( editor -- )
[ [ cancel-alarm ] when* f ] change-blink-alarm drop ; [ [ cancel-alarm ] when* f ] change-blink-alarm drop ;