Delay the cursor blink
parent
b3d6ab1d3b
commit
54ce8be408
|
@ -65,7 +65,7 @@ SYMBOL: blink-interval
|
||||||
: start-blinking ( editor -- )
|
: start-blinking ( editor -- )
|
||||||
[ stop-blinking ] [
|
[ stop-blinking ] [
|
||||||
t >>blink
|
t >>blink
|
||||||
dup '[ _ blink-caret ] blink-interval get every
|
dup '[ _ blink-caret ] blink-interval get delayed-every
|
||||||
>>blink-alarm drop
|
>>blink-alarm drop
|
||||||
] bi ;
|
] bi ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue