summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm43
1 files changed, 22 insertions, 21 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 9f0465c8f..c4df679ae 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -854,36 +854,37 @@ sub new {
$o->{window} = $o->{rwindow};
}
} else {
- $o->{rwindow} = $o->{window} = gtknew('VBox', border_width => 10);
- set_main_window_size($o);
+ if (!$::WizardWindow) {
+ $::WizardTable = gtknew('VBox');
- $::WizardTable ||= gtknew('VBox');
-
- if (!$::Plug && $::isEmbedded) {
- $::Plug = $::WizardWindow = gtknew('Plug',
+ if ($::isEmbedded) {
+ $::Plug = $::WizardWindow = gtknew('Plug',
socket_id => $::XID,
icon => wm_icon(),
child => $::WizardTable,
title => $title || '',
);
- } elsif (!$::WizardWindow) {
- $::WizardWindow = _create_window(
- title => $title,
- child => gtknew('Frame', shadow_type => 'out', child => $::WizardTable),
- if_(!$::isInstall, icon => wm_icon()),
- if_(!$::isInstall && !$::isStandalone, position_policy => 'center_always'),
- );
-
- if ($::isInstall) {
- require install_gtk; #- for perl_checker
- $::WizardWindow->signal_connect(key_press_event => \&install_gtk::special_shortcuts);
+ mygtk2::sync($::WizardWindow);
} else {
- eval { gtkpack__($::WizardTable, Gtk2::Banner->new(wm_icon(), $::Wizard_title)) };
- $@ and log::l("ERROR: missing wizard banner");
+ $::WizardWindow = _create_window(
+ title => $title,
+ child => gtknew('Frame', shadow_type => 'out', child => $::WizardTable),
+ if_(!$::isInstall, icon => wm_icon()),
+ if_(!$::isInstall && !$::isStandalone, position_policy => 'center_always'),
+ );
+
+ if ($::isInstall) {
+ require install_gtk; #- for perl_checker
+ $::WizardWindow->signal_connect(key_press_event => \&install_gtk::special_shortcuts);
+ } else {
+ eval { gtkpack__($::WizardTable, Gtk2::Banner->new(wm_icon(), $::Wizard_title)) };
+ $@ and log::l("ERROR: missing wizard banner");
+ }
+ $::WizardWindow->show;
}
}
- $::WizardWindow->show;
- flush();
+ $o->{rwindow} = $o->{window} = gtknew('VBox', border_width => 10);
+ set_main_window_size($o);
gtkpack($::WizardTable, $o->{window});
}
$o->{rwindow}->signal_connect(destroy => sub { $o->{destroyed} = 1 });