From d12097f79cc1e6f6714b0f3dba612a2dc57de0a8 Mon Sep 17 00:00:00 2001 From: damien Date: Thu, 15 Feb 2001 13:16:33 +0000 Subject: added png support. Need to test the faces2xpm stuff. --- perl-install/interactive_gtk.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/interactive_gtk.pm') diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm index 85d894041..69140aad9 100644 --- a/perl-install/interactive_gtk.pm +++ b/perl-install/interactive_gtk.pm @@ -314,7 +314,7 @@ sub ask_from_entries_refW { gtkdestroy($e->{icon}); my $f = $e->{icon2f}->($_[0]); $e->{icon} = -e $f ? - gtkxpm($mainw->{window}, $f) : + gtkpng($f) : new Gtk::Label(may_apply($e->{format}, $_[0])); $w->add($e->{icon}); $e->{icon}->show; @@ -388,7 +388,7 @@ sub ask_from_entries_refW { { e => $e, w => $w, real_w => $real_w || $w, expand => $expand, get => $get || sub { ${$e->{val}} }, set => $set || sub {}, - icon_w => -e $e->{icon} ? gtkxpm($mainw->{window}, $e->{icon}) : '' }; + icon_w => -e $e->{icon} ? gtkpng($e->{icon}) : '' }; }; @widgets_always = map_index { $create_widget->($_, $::i ) } @$l; @widgets_advanced = map_index { $create_widget->($_, $::i + @$l) } @$l2; -- cgit v1.2.1