diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-01-10 16:09:44 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-01-10 16:09:44 +0000 |
| commit | 64f941377e536828eac68a724cae67a18819dd0b (patch) | |
| tree | de6a72b22a15892ac90db38ca1837d21db25d079 /perl-install/ugtk2.pm | |
| parent | 1e2e418ecc75585eee6e9d903a93664b8dcd5703 (diff) | |
| download | drakx-64f941377e536828eac68a724cae67a18819dd0b.tar drakx-64f941377e536828eac68a724cae67a18819dd0b.tar.gz drakx-64f941377e536828eac68a724cae67a18819dd0b.tar.bz2 drakx-64f941377e536828eac68a724cae67a18819dd0b.tar.xz drakx-64f941377e536828eac68a724cae67a18819dd0b.zip | |
rewrite
Diffstat (limited to 'perl-install/ugtk2.pm')
| -rw-r--r-- | perl-install/ugtk2.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 2c07fe92b..9f0465c8f 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -870,16 +870,16 @@ sub new { $::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 { - $::WizardWindow->set_position('center_always') if !$::isStandalone; eval { gtkpack__($::WizardTable, Gtk2::Banner->new(wm_icon(), $::Wizard_title)) }; $@ and log::l("ERROR: missing wizard banner"); - may_set_icon($::WizardWindow, wm_icon()); } } $::WizardWindow->show; |