Reduce redraws on selection
This commit is contained in:
parent
d9ba2b6379
commit
8bd0574d5e
|
@ -171,7 +171,8 @@
|
||||||
!select
|
!select
|
||||||
|
|
||||||
@<select-to> ( addr* -- )
|
@<select-to> ( addr* -- )
|
||||||
clamp-selection .selection/b STZ2
|
clamp-selection DUP2 .selection/b LDZ2 NEQ2 ?{ POP2 JMP2r }
|
||||||
|
.selection/b STZ2
|
||||||
!select
|
!select
|
||||||
|
|
||||||
@<select-word> ( addr* -- )
|
@<select-word> ( addr* -- )
|
||||||
|
|
Loading…
Reference in New Issue