diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2004-12-31 18:03:03 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2004-12-31 18:03:03 +0000 |
commit | bc7f26f382552f46f101e8796a691b7e1b360249 (patch) | |
tree | 6b748836520b0596d760caf81f2d7acf8b14a7f7 /perl-install | |
parent | 930439d08af2f1254657dc168fa01985dfb31839 (diff) | |
download | drakx-bc7f26f382552f46f101e8796a691b7e1b360249.tar drakx-bc7f26f382552f46f101e8796a691b7e1b360249.tar.gz drakx-bc7f26f382552f46f101e8796a691b7e1b360249.tar.bz2 drakx-bc7f26f382552f46f101e8796a691b7e1b360249.tar.xz drakx-bc7f26f382552f46f101e8796a691b7e1b360249.zip |
simplify (we always want the logo, and looking the right path is already done elsewhere)
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/install_gtk.pm | 3 |
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; |