(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

View File

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