@@ 16,7 16,7 @@
@cursor
&x $2 &y $2
@textarea
- &highlight $1 &lines $2 &length $2
+ &highlight $1 &lines $2 &length $2
@scrollbar
&height $2
@scroll
@@ 367,7 367,7 @@ JMP2r
BRK
-(
+(
@|actions )
@scroll-to ( line* -- )
@@ 1212,8 1212,10 @@ JMP2r
( remove trailing whitespace )
get-eof ;text
&l
- LDA2k #200a NEQ2 ?&no-space DUP2 trim &no-space
- LDA2k #090a NEQ2 ?&no-tab DUP2 trim &no-tab
+ LDA2k #0920 NEQ2 ?&no-ts INC2k trim &no-ts
+ LDA2k #2009 NEQ2 ?&no-st DUP2 trim &no-st
+ LDA2k #200a NEQ2 ?&no-s DUP2 trim &no-s
+ LDA2k #090a NEQ2 ?&no-t DUP2 trim &no-t
INC2 GTH2k ?&l
POP2 POP2
reset-selection