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

Handle tabs

This commit is contained in:
Devine Lu Linvega 2023-04-26 16:12:50 -07:00
parent 712ea57e81
commit 6134b9d354
1 changed files with 22 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
gui/notepad/notepad.tal
View File

@ -293,18 +293,24 @@ JMP2r
#0018 .Screen/y DEO2
;mem
&while
LDAk #0a NEQ ?&no-lb
draw-linebreak
INC2 LDAk walk-on AND ?&while JMP2r
&no-lb
( wrap )
LDAk #20 NEQ ?&no-wrap
LDAk #20 GTH ?&no-wrap
DUP2 word-length .Screen/x DEI2 ADD2 #00d0 LTH2 ?&no-wrap
draw-linebreak
INC2 LDAk walk-on AND ?&while JMP2r
&no-wrap
LDAk #20 SUB #00 SWP ;font ADD2 LDA #00 SWP .Screen/x DEI2 ADD2
.Screen/x DEO2
( tab )
LDAk #09 NEQ ?&no-tab
draw-tab
INC2 LDAk walk-on AND ?&while JMP2r
&no-tab
( linebreak )
LDAk #0a NEQ ?&no-lb
draw-linebreak
INC2 LDAk walk-on AND ?&while JMP2r
&no-lb
INC2 LDAk walk-on AND ?&while
JMP2r
@ -386,12 +392,9 @@ JMP2r
#15 .Screen/auto DEO
&while
LDAk #0a NEQ ?&no-lb
draw-linebreak
INC2 LDAk walk-on AND ?&while JMP2r
&no-lb
( wrap )
LDAk #20 NEQ ?&no-wrap
LDAk #20 GTH ?&no-wrap
DUP2 word-length .Screen/x DEI2 ADD2 #00d0 LTH2 ?&no-wrap
draw-linebreak
INC2 LDAk ?&while
@ -413,6 +416,9 @@ JMP2r
&block
.Screen/x DEO2
( tab ) LDAk #09 NEQ ?&no-tab draw-tab &no-tab
( linebreak ) LDAk #0a NEQ ?&no-lb draw-linebreak &no-lb
INC2 LDAk ?&while
POP2
@ -446,6 +452,12 @@ JMP2r
JMP2r
@draw-tab ( -- )
.Screen/x DEI2k #0020 ADD2 #33 SFT2 ROT DEO2
JMP2r
@draw-linebreak ( -- )
#0008 .Screen/x DEO2