d6
/
uxn-utils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Tab tabbed following lines

This commit is contained in:
Devine Lu Linvega 2024-05-27 20:25:39 -07:00
parent 58e4c6a0a7
commit ee9a63a154
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gui/notepad/src/notepad.tal
View File

@ -496,7 +496,10 @@ JMP2r
( wrap ) ( wrap )
LDAk #20 GTH ?&no-wrap LDAk #20 GTH ?&no-wrap
DUP2 word-width .Screen/x DEI2 ADD2 #00d0 LTH2 ?&no-wrap DUP2 word-width .Screen/x DEI2 ADD2 #00d0 LTH2 ?&no-wrap
#01 !draw-linebreak ( tabbed )
DUP2 find-line-start LDA2 #093e NEQ2 ?{
#01 #0021 !draw-linebreak }
#01 #0008 !draw-linebreak
&no-wrap &no-wrap
( char ) ( char )
LDAk char-width .Screen/x DEI2 ADD2 LDAk char-width .Screen/x DEI2 ADD2
@ -507,7 +510,7 @@ JMP2r
&no-tab &no-tab
( linebreak ) ( linebreak )
LDAk #0a NEQ ?&no-lb LDAk #0a NEQ ?&no-lb
#01 !draw-linebreak #01 #0008 !draw-linebreak
&no-lb &no-lb
#00 #00
@ -555,7 +558,8 @@ JMP2r
;mem SWP2 ;mem SWP2
&l &l
#0001 SUB2 LDAk #0a EQU ?&end #0001 SUB2 LDAk
DUP #0a EQU SWP #00 EQU ORA ?&end
LTH2k ?&l LTH2k ?&l
&end &end
NIP2 INC2 NIP2 INC2
@ -567,6 +571,7 @@ JMP2r
get-eof SWP2 get-eof SWP2
&l &l
LDAk #0a EQU ?&end LDAk #0a EQU ?&end
LDAk #00 EQU ?&end
INC2 GTH2k ?&l INC2 GTH2k ?&l
&end &end
NIP2 NIP2
@ -700,9 +705,9 @@ JMP2r
JMP2r JMP2r
@draw-linebreak ( -- ) @draw-linebreak ( x* -- )
#0008 .Screen/x DEO2 .Screen/x DEO2
.Screen/y DEI2k #0010 ADD2 ROT DEO2 .Screen/y DEI2k #0010 ADD2 ROT DEO2
JMP2r JMP2r