Delay the cursor blink
parent
616ad9a4a7
commit
fc9a5fee58
|
|
@ -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