Clean redraw on menu-leave

4 years ago · 43d2283402
1 changed files with 11 additions and 7 deletions
--- a/src/manifest.tal
+++ b/src/manifest.tal
@ -64,13 +64,17 @@ BRK

 	.Mouse/state DEI ;on-menu-touch JCN2

-	.Mouse/y DEI2 #0008 LTH2 ,&no-exit JCN
-		;untrap JSR2
-		;draw-cat JSR2
-		;draw-cat/sel LDA #00 ;draw-sub JSR2
-		#ff ;draw-cat/sel STA
-		;redraw JSR2
-		&no-exit
+	.Mouse/y DEI2 #0007 GTH2 ;on-menu-leave JCN2
+
+BRK
+
+@on-menu-leave ( -> )
+
+	;untrap JSR2
+	( hide ) ;draw-cat/sel LDA #00 ;draw-sub JSR2
+	#ff ;draw-cat/sel STA
+	;draw-cat JSR2
+	;redraw JSR2

 BRK