summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-01-10 16:09:44 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-01-10 16:09:44 +0000
commit64f941377e536828eac68a724cae67a18819dd0b (patch)
treede6a72b22a15892ac90db38ca1837d21db25d079 /perl-install
parent1e2e418ecc75585eee6e9d903a93664b8dcd5703 (diff)
downloaddrakx-64f941377e536828eac68a724cae67a18819dd0b.tar
drakx-64f941377e536828eac68a724cae67a18819dd0b.tar.gz
drakx-64f941377e536828eac68a724cae67a18819dd0b.tar.bz2
drakx-64f941377e536828eac68a724cae67a18819dd0b.tar.xz
drakx-64f941377e536828eac68a724cae67a18819dd0b.zip
rewrite
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm4
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;