From bb4eb6bb98e98b33e83ba4ae934049a6f2cac4e0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 9 Sep 2001 16:13:16 +0000
Subject: clicked_may_quit used in place of clicked+exception to work-around
 perl-GTK bug (?)

---
 perl-install/interactive_gtk.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install/interactive_gtk.pm')

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 6445b39b5..b10aba394 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -407,7 +407,10 @@ sub ask_fromW {
 	    $w->signal_connect(clicked => sub {
 		$get_all->();
 		$mainw->{rwindow}->hide;
-		$e->{clicked}();
+		if (my $v = $e->{clicked_may_quit}()) {
+		    $o->{retval} = $v;
+		    Gtk->main_quit;
+		}
 		$mainw->{rwindow}->show;
 		$set_all->();
 	    });
-- 
cgit v1.2.1