summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-01-11 11:40:32 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-01-11 11:40:32 +0000
commit585ad36263ff6e0348b45b9b3c3256533203cde8 (patch)
treeae7c2d3e835a25d3a99a56eaef04728c09faf6cc /perl-install/ugtk2.pm
parent90de368da31f50044709794eea758178c5f00ece (diff)
downloaddrakx-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.pm10
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($) {