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

Display markers for tab+caret

This commit is contained in:
Devine Lu Linvega 2024-05-27 20:12:52 -07:00
parent 372976e425
commit 58e4c6a0a7
2 changed files with 19 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gui/notepad/src/assets.tal
View File

@ -15,6 +15,9 @@
0000 00ff 00ff 00ff 00ff 00ff 00ff 0000 ]
&c [
0000 00fe 00fe 00fe 00fe 00fe 00fe 0000 ]
@marker-icn [
0000 0000 0000 4060 7060 4000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 ]
@close-icn
0000 00ff 8080 8080 8080 8080 80ff 0000
0000 00ef 202f 202f 202f 202f 20ef 0000

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

@ -519,16 +519,18 @@ JMP2r
JMP2r
@char-addr ( char -- addr* )
@char-addr ( prev char -- addr* )
DUP #7e GTH ?&missing
DUP #20 LTH ?&blank
#20 SUB
DUP2 #093e EQU2 ?&marker
NIP #20 SUB
#00 SWP #50 SFT2 ;font/glyphs ADD2
JMP2r
&blank POP ;font/glyphs JMP2r
&missing POP ;error-icn JMP2r
&blank POP2 ;font/glyphs JMP2r
&missing POP2 ;error-icn JMP2r
&marker POP2 ;marker-icn JMP2r
@char-width ( char -- width* )
@ -649,7 +651,7 @@ JMP2r
get-page
&while
( draw char )
LDAk char-addr .Screen/addr DEO2
DUP2 #0001 SUB2 LDA2 char-addr .Screen/addr DEO2
is-selected STH #0701 STHr [ JMP SWP POP ] .Screen/sprite DEOk DEO
.Screen/x DEI2k #0010 SUB2 ROT DEO2
( draw selector )
@ -713,6 +715,7 @@ JMP2r
.Mouse/x DEI2 ,draw-cursor/x STR2
.Mouse/y DEI2 ,draw-cursor/y STR2
.Screen/addr DEO2
( >> )
@draw-cursor ( color -- )
@ -725,6 +728,14 @@ JMP2r
(
@|stdlib )
@<phex> ( short* -: )
SWP /b
&b ( byte -: )
DUP #04 SFT /c
&c ( byte -: )
#0f AND DUP #09 GTH #27 MUL ADD [ LIT "0 ] ADD #18 DEO
JMP2r
@load-theme ( -- )
;&path .File/name DEO2