summaryrefslogtreecommitdiffstats
path: root/perl-install/install_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-12-31 18:03:03 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-12-31 18:03:03 +0000
commitbc7f26f382552f46f101e8796a691b7e1b360249 (patch)
tree6b748836520b0596d760caf81f2d7acf8b14a7f7 /perl-install/install_gtk.pm
parent930439d08af2f1254657dc168fa01985dfb31839 (diff)
downloaddrakx-backup-do-not-use-bc7f26f382552f46f101e8796a691b7e1b360249.tar
drakx-backup-do-not-use-bc7f26f382552f46f101e8796a691b7e1b360249.tar.gz
drakx-backup-do-not-use-bc7f26f382552f46f101e8796a691b7e1b360249.tar.bz2
drakx-backup-do-not-use-bc7f26f382552f46f101e8796a691b7e1b360249.tar.xz
drakx-backup-do-not-use-bc7f26f382552f46f101e8796a691b7e1b360249.zip
simplify (we always want the logo, and looking the right path is already done elsewhere)
Diffstat (limited to 'perl-install/install_gtk.pm')
-rw-r--r--perl-install/install_gtk.pm3
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm
index e4d0ae824..b95063f92 100644
--- a/perl-install/install_gtk.pm
+++ b/perl-install/install_gtk.pm
@@ -195,14 +195,13 @@ sub create_logo_window {
mygtk2::may_destroy($o->{logo_window});
my $file = $o->{meta_class} eq 'firewall' ? "logo-mandrake-Firewall.png" : "logo-mandrake.png";
- -r $file or $file = "$ENV{SHARE_PATH}/$file";
my $w = bless {}, 'ugtk2';
$w->{rwindow} = $w->{window} =
gtknew('Window',
width => $::logowidth, height => $::logoheight,
title => 'skip', widget_name => 'logo',
- if_(-r $file, child => gtknew('Image', file => $file)),
+ child => gtknew('Image', file => $file),
);
$w->show;
$o->{logo_window} = $w;