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

(meta) Fixed issue with refresh

This commit is contained in:
neauoire 2023-11-30 13:28:13 -08:00
parent 3630f1a4bc
commit e6bafe74ef
1 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
gui/meta/meta.tal
View File

@ -18,9 +18,7 @@
#a70f .System/b DEO2 #a70f .System/b DEO2
#0150 .Screen/width DEO2 #0150 .Screen/width DEO2
#0050 .Screen/height DEO2 #0050 .Screen/height DEO2
.Console/type DEI #03 AND ?{ .Console/type DEI #03 AND ?{ ;dict/usage <perr>/ }
;dict/usage <perr>/
#010f DEO }
;await-src .Console/vector DEO2 ;await-src .Console/vector DEO2
BRK BRK
@ -29,7 +27,7 @@
( name ) "Meta 0a ( name ) "Meta 0a
( details ) "A 20 "Metadata 20 "Viewer 0a ( details ) "A 20 "Metadata 20 "Viewer 0a
( author ) "By 20 "Devine 20 "Lu 20 "Linvega 0a ( author ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
( date ) "17 20 "Nov 20 "2023 $1 ( date ) "29 20 "Nov 20 "2023 $1
03 03
( skip ) 00 abcd ( skip ) 00 abcd
( skip ) 01 ef01 ( skip ) 01 ef01
@ -42,12 +40,13 @@
.Console/read DEI .src skey ?{ BRK } .Console/read DEI .src skey ?{ BRK }
;src has-metadata ?{ ;src has-metadata ?{
;dict/empty <pstr-ln> ;dict/empty <pstr-ln>
#010f DEO ;src <sclr>
BRK } BRK }
<load-metadata> <load-metadata>
;metadata/body DUP2 ;metadata/body DUP2
( cli ) <pstr-ln>/ ( cli ) <pstr-ln>/
( gui ) <draw-metadata> ( gui ) <draw-metadata>
;src <sclr>
BRK BRK
( (
@ -80,6 +79,11 @@
@|drawing ) @|drawing )
@<draw-metadata> ( body* -- ) @<draw-metadata> ( body* -- )
( | clear )
#0000 DUP2 .Screen/x DEO2
.Screen/y DEO2
#80 .Screen/pixel DEO
( | draw )
#004c .Screen/x DEO2 #004c .Screen/x DEO2
#0012 .Screen/y DEO2 #0012 .Screen/y DEO2
<draw-txt> <draw-txt>
@ -140,6 +144,13 @@
scap/ STA scap/ STA
JMP2r JMP2r
@<sclr> ( str* -- )
#00 ROT ROT
&w ( -- )
STAk INC2 LDAk ?&w
STA
JMP2r
@skey ( key buf -- proc ) @skey ( key buf -- proc )
OVR #21 LTH ?&eval OVR #21 LTH ?&eval
#00 SWP sput #00 JMP2r #00 SWP sput #00 JMP2r