summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-02-09 14:54:46 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-02-09 14:54:46 +0000
commit427290403de19fed6255371c3603335b75bc47f8 (patch)
tree49eb44d576811dfbfedddec70b168c34ad457454 /perl-install
parentd1f8d4589687bb481157a1372a41e37cdbc732ca (diff)
downloaddrakx-427290403de19fed6255371c3603335b75bc47f8.tar
drakx-427290403de19fed6255371c3603335b75bc47f8.tar.gz
drakx-427290403de19fed6255371c3603335b75bc47f8.tar.bz2
drakx-427290403de19fed6255371c3603335b75bc47f8.tar.xz
drakx-427290403de19fed6255371c3603335b75bc47f8.zip
remove show_all that breaks when there are some hidden windows
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index f1c49666b..cdb0a5085 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -904,11 +904,10 @@ sub new {
if (!$::Plug && $o->{isEmbedded}) {
$::Plug = $::WizardWindow = gtkshow(Gtk2::Plug->new($::XID));
flush();
- $::Plug->add($::WizardTable);
+ gtkadd($::Plug, $::WizardTable);
} elsif (!$::WizardWindow) {
$::WizardWindow = _create_window($title);
-
- $::WizardWindow->add(gtkadd(gtkset_shadow_type(Gtk2::Frame->new, 'out'), $::WizardTable));
+ gtkadd($::WizardWindow, gtkadd(gtkset_shadow_type(Gtk2::Frame->new, 'out'), $::WizardTable));
if ($::isInstall) {
$::WizardWindow->signal_connect(key_press_event => sub {
@@ -940,10 +939,11 @@ sub new {
$::WizardWindow->set_position('center_always') if !$::isStandalone;
$::WizardTable->attach($draw1, 0, 2, 0, 1, 'fill', 'fill', 0, 0);
+ $draw1->show;
}
+ $::WizardWindow->show;
}
$::WizardWindow->set_title($title);
- $::WizardWindow->show_all;
$::WizardTable->attach($o->{window}, 0, 2, 1, 2, ['fill', 'expand'], ['fill', 'expand'], 0, 0);
}
$o->{rwindow}->signal_connect(destroy => sub { $o->{destroyed} = 1 });