From e6bafe74ef5fb6bdfe880346e99687c976b38514 Mon Sep 17 00:00:00 2001
From: neauoire <aliceffekt@gmail.com>
Date: Thu, 30 Nov 2023 13:28:13 -0800
Subject: [PATCH] (meta) Fixed issue with refresh

---
 gui/meta/meta.tal | 21 ++++++++++++++++-----
 1 file changed, 16 insertions(+), 5 deletions(-)

diff --git a/gui/meta/meta.tal b/gui/meta/meta.tal
index 90da378..5511e6b 100644
--- a/gui/meta/meta.tal
+++ b/gui/meta/meta.tal
@@ -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