From 10d99d74bb79bcb293936c089bae8b2466dbd67f Mon Sep 17 00:00:00 2001
From: Elliot Nunn <elliotnunn@me.com>
Date: Tue, 10 Nov 2020 21:35:33 +0800
Subject: [PATCH] Clear the screen behind us when done

---
 BootPicker.a | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/BootPicker.a b/BootPicker.a
index b4e5314..cc51287 100644
--- a/BootPicker.a
+++ b/BootPicker.a
@@ -218,6 +218,15 @@ _BoundaryLabelAtStartOfBootPicker_
 .ReturnToCaller
 		movem.l	A0/D0,-(SP)							; save/restore our return values
 
+		move.l	(A5),A0								; Open a new whole-screen port
+		move.l	(A0),-(SP)
+		dc.w	$A86F								; _OpenPort
+
+		pea		$3F8								; DSAlertRect
+		move.l	(A5),A0								; 
+		pea		-24(A0)								; qd.gray
+		dc.w	$A8A5								; _FillRect
+
 		move.w	#$A8AD,D0							; Unpatch _PtInRect
 		move.l	$9CE+4,A0							; We saved it in ToolScratch
 		dc.w	$A047								; _SetTrapAddress