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

Added etc-icn

This commit is contained in:
Devine Lu Linvega 2024-05-28 18:58:34 -07:00
parent 12d8d058a9
commit cbd31b86bc
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -28,6 +28,9 @@
0000 0000 0000 3078 7830 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000 ]
@etc-icn [
0000 0000 0000 0000 0000 0000 0054 0000 ]
@close-icn [
0000 00ff 8080 8080 8080 8080 80ff 0000
0000 00ef 202f 202f 202f 202f 20ef 0000

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

@ -440,6 +440,11 @@
#0018 .Screen/y DEO2
get-page
&>w ( -- )
( | page end )
.Screen/y DEI2 #00c8 NEQ2 ?{
;etc-icn .Screen/addr DEO2
#01 .Screen/sprite DEO
!&end }
( | draw char )
DUP2 #0001 SUB2 LDA2 char-addr .Screen/addr DEO2
is-selected STH
@ -453,7 +458,7 @@
[ LIT2 05 -Screen/sprite ] DEO
.Screen/x DEI2k #0008 SUB2 ROT DEO2
&block walk-char POP INC2 LDAk ?&>w
POP2
&end POP2
@<draw-footer> ( -- )
.Screen/height DEI2 #0020 GTH2 ?{ JMP2r }