summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-01-07 14:00:57 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-01-07 14:00:57 +0000
commit392c56f79a44013500e98df4d7c68dd7ad3505cf (patch)
tree95f2612248908fc0306d72bcdd2639892b48f3af /perl-install
parentf813e51def4634210e36325b4435ad33fe6ee350 (diff)
downloaddrakx-392c56f79a44013500e98df4d7c68dd7ad3505cf.tar
drakx-392c56f79a44013500e98df4d7c68dd7ad3505cf.tar.gz
drakx-392c56f79a44013500e98df4d7c68dd7ad3505cf.tar.bz2
drakx-392c56f79a44013500e98df4d7c68dd7ad3505cf.tar.xz
drakx-392c56f79a44013500e98df4d7c68dd7ad3505cf.zip
no icon during install
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm12
1 files changed, 7 insertions, 5 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 32b5edb26..dae0bbaa8 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -376,7 +376,7 @@ sub _create_dialog {
gtknew('Dialog', title => $title,
position_policy => 'center-on-parent', # center-on-parent does not work
modal => 1,
- icon => wm_icon(),
+ if_(!$::isInstall, icon => wm_icon()),
%$options, allow_unknown_options => 1,
);
}
@@ -842,9 +842,9 @@ sub new {
if ($o->{pop_it}) {
$o->{rwindow} = _create_window(
title => $title,
- icon => wm_icon(),
position_policy => $force_center || $o->{force_center} ? 'center_always' : 'center-on-parent',
modal => $grab || $o->{grab} || $o->{modal},
+ if_(!$::isInstall, icon => wm_icon()),
if_($o->{transient} && $o->{transient} =~ /Gtk2::Window/, transient_for => $o->{transient}),
);
@@ -870,9 +870,11 @@ sub new {
title => $title || '',
);
} elsif (!$::WizardWindow) {
- $::WizardWindow = _create_window(title => $title);
- gtkadd($::WizardWindow, gtknew('Frame', shadow_type => 'out', child => $::WizardTable));
-
+ $::WizardWindow = _create_window(
+ title => $title,
+ child => gtknew('Frame', shadow_type => 'out', child => $::WizardTable),
+ );
+
if ($::isInstall) {
require install_gtk; #- for perl_checker
$::WizardWindow->signal_connect(key_press_event => \&install_gtk::special_shortcuts);