From 1178db7cf34e57e7cf09f66cffa79112c67fc7ed Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 7 Feb 2001 13:46:27 +0000 Subject: (create_help_window, create_logo_window): use gtkxpm --- perl-install/install_gtk.pm | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm index 9884418fc..4e189c2d0 100644 --- a/perl-install/install_gtk.pm +++ b/perl-install/install_gtk.pm @@ -102,7 +102,7 @@ sub create_help_window { $w->{rwindow}->set_usize($::helpwidth, $::helpheight); $w->sync; } - my $pixmap = new Gtk::Pixmap(gtkcreate_xpm($w->{window}, "$ENV{SHARE_PATH}/help.xpm")); + my $pixmap = gtkxpm($w->{window}, "$ENV{SHARE_PATH}/help.xpm"); gtkadd($w->{window}, gtkpack_(new Gtk::HBox(0,-2), 0, gtkadd(gtksignal_connect(new Gtk::Button, clicked => sub { create_big_help($o) }), $pixmap), @@ -193,11 +193,7 @@ sub create_logo_window { my $file = $o->{meta_class} eq 'desktop' ? "logo-mandrake-Desktop.xpm" : "logo-mandrake.xpm"; $o->{meta_class} eq 'firewall' and $file = "logo-mandrake-Firewall.xpm"; -r $file or $file = "$ENV{SHARE_PATH}/$file"; - if (-r $file) { - my $ww = $w->{window}; - my @logo = Gtk::Gdk::Pixmap->create_from_xpm($ww->window, $ww->style->bg('normal'), $file); - gtkadd($ww, new Gtk::Pixmap(@logo)); - } + -r $file and gtkadd($w->{window}, gtkxpm($w->{window}, $file)); $o->{logo_window} = $w; } -- cgit v1.2.1