From 585ad36263ff6e0348b45b9b3c3256533203cde8 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 11 Jan 2005 11:40:32 +0000
Subject: - create mygtk2::main() - get rid of setting {destroyed}, use a local
 variable instead

---
 perl-install/mygtk2.pm | 10 ++++++++++
 1 file changed, 10 insertions(+)

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

diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index bfb565170..1e6dbfa87 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -646,6 +646,16 @@ sub _icon_paths() {
     "/usr/lib/libDrakX/icons", "pixmaps", 'standalone/icons', '/usr/share/rpmdrake/icons');
 }  
 
+sub main {
+    my ($window, $o_verif) = @_;
+    my $destroyed;
+    $window->signal_connect(destroy => sub { $destroyed = 1 });
+    $window->show;
+    do { Gtk2->main } while (!$destroyed && $o_verif && !$o_verif->());
+    may_destroy($window);
+    flush();
+}
+
 sub sync {
     my ($window) = @_;
     $window->show;
-- 
cgit v1.2.1