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

(m291) Use newer load-theme function

This commit is contained in:
Devine Lu Linvega 2024-08-26 16:45:08 -07:00
parent 713a05dc19
commit ac4acbcab8
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
gui/m291/src/m291.tal
View File

@ -638,8 +638,7 @@
.Screen/y DEI2 [ LIT2 15 -Screen/auto ] DEO .Screen/y DEI2 [ LIT2 15 -Screen/auto ] DEO
.Screen/width DEI2 #0010 SUB2 .Screen/x DEO2 .Screen/width DEI2 #0010 SUB2 .Screen/x DEO2
[ LIT2 00 "> ] #20 SUB #50 SFT2 ;font/glyphs ADD2 .Screen/addr DEO2 [ LIT2 00 "> ] #20 SUB #50 SFT2 ;font/glyphs ADD2 .Screen/addr DEO2
DUPr [ LITr -Screen/sprite ] DEOkr DUPr [ LITr -Screen/sprite ] DEOr
DEOr
.Screen/y DEO2 } .Screen/y DEO2 }
( | normal ) ( | normal )
#0008 .Screen/x DEO2 #0008 .Screen/x DEO2
@ -653,7 +652,7 @@
[ LIT2r 0000 ] [ LIT2r 0000 ]
&>while ( -- ) &>while ( -- )
LDAk #20 SUB #0000 ROT ;font ADD2 LDA STH2 LDAk #20 SUB #0000 ROT ;font ADD2 LDA STH2
ADD2r INC2 LDAk ?&>while ADD2r next-glyph LDAk ?&>while
POP2 STH2r JMP2r POP2 STH2r JMP2r
@<draw-uf2-right> ( text* color -- ) @<draw-uf2-right> ( text* color -- )
@ -791,13 +790,14 @@
@<load-theme> ( -- ) @<load-theme> ( -- )
;&path .File/name DEO2 ;&path .File/name DEO2
#0002 .File/length DEO2 #0002 .File/length DEO2
[ LIT2 -System/debug -System/r ] ;&r .File/read DEO2
&l ( -- ) ;&g .File/read DEO2
;&buf .File/read DEO2 ;&b .File/read DEO2
[ LIT2 00 -File/success-lb ] DEI EQU ?{ [ LIT2 00 -File/success-lb ] DEI EQU ?{
[ LIT2r &buf $2 ] STHk DEO2r [ LIT2 &r $2 ] .System/r DEO2
INC INC NEQk ?&l } [ LIT2 &g $2 ] .System/g DEO2
POP2 JMP2r [ LIT2 &b $2 ] .System/b DEO2 }
JMP2r
&path ".theme $1 &path ".theme $1