diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-02-09 14:54:46 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-02-09 14:54:46 +0000 |
| commit | 427290403de19fed6255371c3603335b75bc47f8 (patch) | |
| tree | 49eb44d576811dfbfedddec70b168c34ad457454 /perl-install/ugtk2.pm | |
| parent | d1f8d4589687bb481157a1372a41e37cdbc732ca (diff) | |
| download | drakx-backup-do-not-use-427290403de19fed6255371c3603335b75bc47f8.tar drakx-backup-do-not-use-427290403de19fed6255371c3603335b75bc47f8.tar.gz drakx-backup-do-not-use-427290403de19fed6255371c3603335b75bc47f8.tar.bz2 drakx-backup-do-not-use-427290403de19fed6255371c3603335b75bc47f8.tar.xz drakx-backup-do-not-use-427290403de19fed6255371c3603335b75bc47f8.zip | |
remove show_all that breaks when there are some hidden windows
Diffstat (limited to 'perl-install/ugtk2.pm')
| -rw-r--r-- | perl-install/ugtk2.pm | 8 |
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 }); |