neauoire
/
left
mirror of https://git.sr.ht/~rabbits/left
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Improved mouse handler on textarea

This commit is contained in:
Devine Lu Linvega 2024-03-08 21:00:15 -08:00
parent 434ba5077f
commit f01ea663ee
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/left.tal
View File

@ -257,27 +257,27 @@
@on-mouse-textarea ( x* -> )
POP2 [ LIT2 00 -Mouse/state ] DEI NEQ #41 ADD ;cursor-icn <update-cursor>
.Mouse/state DEI [ LIT &last $1 ]
[ LIT2 &last $1 -Mouse/state ] DEI DUP ,&last STR
( ) ANDk ?&on-drag
( ) DUP2 #0100 EQU2 ?&on-down1
( ) DUP2 #0200 EQU2 ?&on-down2
( ) DUP2 #0400 EQU2 ?&on-down3
&end POP ,&last STR
BRK
NIP
( ) DUP #01 EQU ?&on-down1
( ) DUP #02 EQU ?&on-down2
( ) DUP #04 EQU ?&on-down3
POP BRK
&on-down1 ( a b -> )
[ LIT2 04 -Controller/button ] DEI EQU ?&on-drag
touch-to-addr <select-a>
!&end
POP BRK
&on-drag ( a b -> )
touch-to-addr <select-b>
!&end
POP BRK
&on-down2 ( a b -> )
touch-to-addr <select-symbol>
[ LIT2 00 -Mouse/state ] DEO
!&end
POP BRK
&on-down3 ( a b -> )
capture-selection [ LIT2 00 -Mouse/state ] DEO
!&end
POP BRK
@on-mouse-scrollbar ( x* -> )
[ LIT2 00 -Mouse/state ] DEI NEQ #42 ADD ;cursor-icn <update-cursor>
@ -1311,7 +1311,8 @@
<draw-utf8-glyph>
next-glyph LDAk #20 GTH ?&>w
&end ( str* -- )
POP2 ;marker-icns/end !<draw-marker-cap>
POP2 ;marker-icns/end
( >> )
@<draw-marker-cap> ( addr* -- )
.Screen/addr DEO2