- create mygtk2::main()

- get rid of setting {destroyed}, use a local variable instead

1 files changed, 10 insertions, 0 deletions

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;