diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-01-11 11:40:32 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-01-11 11:40:32 +0000 |
| commit | 585ad36263ff6e0348b45b9b3c3256533203cde8 (patch) | |
| tree | ae7c2d3e835a25d3a99a56eaef04728c09faf6cc /perl-install | |
| parent | 90de368da31f50044709794eea758178c5f00ece (diff) | |
| download | drakx-585ad36263ff6e0348b45b9b3c3256533203cde8.tar drakx-585ad36263ff6e0348b45b9b3c3256533203cde8.tar.gz drakx-585ad36263ff6e0348b45b9b3c3256533203cde8.tar.bz2 drakx-585ad36263ff6e0348b45b9b3c3256533203cde8.tar.xz drakx-585ad36263ff6e0348b45b9b3c3256533203cde8.zip | |
- create mygtk2::main()
- get rid of setting {destroyed}, use a local variable instead
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/mygtk2.pm | 10 | ||||
| -rw-r--r-- | perl-install/ugtk2.pm | 10 |
2 files changed, 13 insertions, 7 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; diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 8537b1cfa..e1787f02a 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -880,8 +880,6 @@ sub new { set_main_window_size($o); gtkpack($::WizardTable, $o->{window}); } - $o->{rwindow}->signal_connect(destroy => sub { $o->{destroyed} = 1 }); - $o; } sub set_main_window_size { @@ -893,12 +891,10 @@ sub set_main_window_size { sub main { my ($o, $o_completed, $o_canceled) = @_; gtkset_mousecursor_normal(); - $o->show; - do { - Gtk2->main; - } while (!$o->{destroyed} && ($o->{retval} ? $o_completed && !$o_completed->() : $o_canceled && !$o_canceled->())); - $o->destroy; + $o->show; + mygtk2::main($o->{rwindow}, + sub { $o->{retval} ? !$o_completed || $o_completed->() : !$o_canceled || $o_canceled->() }); $o->{retval}; } sub show($) { |