1 files changed, 14 insertions(+), 2 deletions(-)

M src/main.tal

@@ 536,17 536,29 @@ RTN
 
 @clear-selection ( -- )
 
+	( clear label )
 	.frame/x LDZ2 .Screen/x DEO2
 	.frame/y LDZ2 #0020 ++ .Screen/y DEO2
 	;blank-icn .Screen/addr DEO2
 	( auto x ) #01 .Screen/auto DEO
 	#1b00
-	&loop
+	&name-loop
 		#01 .Screen/sprite DEO
-		INC GTHk ,&loop JCN
+		INC GTHk ,&name-loop JCN
 	POP2
 	( auto none ) #00 .Screen/auto DEO
 
+	( clear cursors )
+	.frame/y LDZ2 #007c ++ .Screen/y DEO2
+	;blank-icn .Screen/addr DEO2
+	#0400
+	&cursors-loop
+		STHk
+		.frame/x LDZ2 #0014 ++ [ STHr TOS #0038 ** ++ ] .Screen/x DEO2
+		#01 .Screen/sprite DEO
+		INC GTHk ,&cursors-loop JCN
+	POP2
+
 RTN
 
 @draw-selection ( color -- )