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/ugtk2.pm | |
| 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/ugtk2.pm')
| -rw-r--r-- | perl-install/ugtk2.pm | 10 |
1 files changed, 3 insertions, 7 deletions
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($) { |