1 files changed, 11 insertions, 0 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index f730cc2e6..95c668378 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -222,3 +222,14 @@ sub wait_message_endW {
     my ($o, $w) = @_;
     $w->destroy;
 }
+
+sub kill {
+    my ($o) = @_;
+    $o->{before_killing} ||= 0;
+    while (@interactive::objects > $o->{before_killing}) {
+	my $w = pop @interactive::objects;
+	$w->destroy;
+    }
+    @my_gtk::grabbed = ();
+    $o->{before_killing} = @interactive::objects;
+}