@@ 233,7 233,6 @@ JMP2r
@on-mouse ( -> )
.Mouse/y DEI2 #0014 LTH2 ;trap-menu JCN2
-
.Mouse/state DEI #00 NEQ #41 ADD ;cursor-icn ;update-cursor JSR2
#15 .Screen/auto DEO
@@ 242,12 241,13 @@ JMP2r
( routing )
.Mouse/x DEI2 #0088 GTH2 ;on-mouse-textarea JCN2
.Mouse/x DEI2 #0008 LTH2 ;on-mouse-scrollbar JCN2
-
- ( >> navbar )
-
+ ( on-navbar )
.Mouse/state DEI #00 NEQ [ JMP BRK ]
.Mouse/y DEI2 #04 SFT2 NIP #02 SUB
- ;get-marker JSR2 ;select-start JSR2
+ ;get-marker JSR2
+ DUP2 ;search ;slen JSR2 ADD2
+ ;select-range JSR2
+ ( release )
#00 .Mouse/state DEO
BRK
@@ 687,7 687,7 @@ JMP2
;get-eof JSR2 ;text
&loop
;search OVR2 ;sseg JSR2 #00 EQU ,&no-find JCN
- DUP2 ;find-prev-spacer JSR2 INC2 ,add-marker JSR
+ DUP2 ,add-marker JSR
&no-find
INC2 GTH2k ,&loop JCN
POP2 POP2
@@ 1034,6 1034,7 @@ JMP2r
@draw-marker ( str* -- str* )
LDAk #00 EQU ,&skip JCN
+ ;find-prev-spacer JSR2 INC2
&while
.Screen/x DEI2 #0078 GTH2 ,&truncate JCN
LDAk ,draw-chr JSR