Fixed leak in labels

gui/teatime/teatime.tal

@@ -27,7 +27,7 @@
 	;on-frame .Screen/vector DEO2
 	;on-mouse .Mouse/vector DEO2
 	( | screen size )
-	#0248 .Screen/width DEO2
+	#0148 .Screen/width DEO2
 	#0110 .Screen/height DEO2
 	.DateTime/second DEI .last-second STZ
 	<redraw>
@@ -73,7 +73,39 @@
 @|drawing )
 
 @<redraw> ( -- )
-	<draw-bar> !<draw-border>
+	<redraw-bar>
+	( >> )
+
+@<draw-background> ( -- )
+	( | markers )
+	;tick-icn .Screen/addr DEO2
+	[ LIT2 f1 -Screen/auto ] DEO
+	#0030 .Screen/x DEO2
+	#0010 .Screen/y DEO2
+	[ LIT2r 05 -Screen/sprite ] DEOkr
+	[ LIT2 d1 -Screen/auto ] DEO
+	#0030 .Screen/x DEO2
+	#0090 .Screen/y DEO2
+	DEOr
+	( | labels )
+	#0038 .Screen/x DEO2
+	#000c .Screen/y DEO2
+	[ LIT2 02 -Screen/auto ] DEO
+	[ LIT2r =label-tilemap ] #1f00
+	&>w ( -- )
+		LDAkr #00 STHr INC2r ;digits ADD2 .Screen/addr DEO2
+		[ LIT2 05 -Screen/sprite ] DEO
+		INC GTHk ?&>w
+	POP2
+	( | labels, cont )
+	#0040 .Screen/x DEO2
+	#000c .Screen/y DEO2
+	#1f00
+	&>w2 ( -- )
+		LDAkr #00 STHr INC2r ;digits ADD2 .Screen/addr DEO2
+		[ LIT2 05 -Screen/sprite ] DEO
+		INC GTHk ?&>w2
+	POP2 POP2r JMP2r
 
 @<redraw-bar> ( -- )
 	;fill-icn .Screen/addr DEO2
@@ -101,35 +133,6 @@
 		INC2 GTH2k ?&>l
 	POP2 POP2 POP2r JMP2r
 
-@<draw-border> ( -- )
-	;tick-icn .Screen/addr DEO2
-	[ LIT2 f1 -Screen/auto ] DEO
-	#0030 .Screen/x DEO2
-	#0010 .Screen/y DEO2
-	[ LIT2r 05 -Screen/sprite ] DEOkr
-	[ LIT2 d1 -Screen/auto ] DEO
-	#0030 .Screen/x DEO2
-	#0090 .Screen/y DEO2
-	DEOr
-	JMP2r
-	( | labels )
-	#0030 .Screen/x DEO2
-	#0004 .Screen/y DEO2
-	#02 .Screen/auto DEO
-	LIT2r [ =label-tilemap ] #1f00
-	&>w ( -- )
-		LDAkr #00 STHr INC2r ;digits ADD2 .Screen/addr DEO2
-		#08 .Screen/sprite DEO
-		INC GTHk ?&>w
-	POP2 #0038 .Screen/x DEO2
-	#0004 .Screen/y DEO2
-	#1f00
-	&>w2 ( -- )
-		LDAkr #00 STHr INC2r ;digits ADD2 .Screen/addr DEO2
-		#08 .Screen/sprite DEO
-		INC GTHk ?&>w2
-	JMP2r
-
 @<update-cursor> ( color addr* -- )
 	[ LIT2 00 -Screen/auto ] DEO
 	;fill-icn .Screen/addr DEO2