summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_gtk.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-02-15 13:16:33 +0000
committerdamien <damien@mandriva.com>2001-02-15 13:16:33 +0000
commitd12097f79cc1e6f6714b0f3dba612a2dc57de0a8 (patch)
tree1f8079575cc7c4f04109fe02049f0c1e552981ea /perl-install/interactive_gtk.pm
parent047975970256916fc31f75b52a2a707976a0baa4 (diff)
downloaddrakx-d12097f79cc1e6f6714b0f3dba612a2dc57de0a8.tar
drakx-d12097f79cc1e6f6714b0f3dba612a2dc57de0a8.tar.gz
drakx-d12097f79cc1e6f6714b0f3dba612a2dc57de0a8.tar.bz2
drakx-d12097f79cc1e6f6714b0f3dba612a2dc57de0a8.tar.xz
drakx-d12097f79cc1e6f6714b0f3dba612a2dc57de0a8.zip
added png support. Need to test the faces2xpm stuff.
Diffstat (limited to 'perl-install/interactive_gtk.pm')
-rw-r--r--perl-install/interactive_gtk.pm4
1 files changed, 2 insertions, 2 deletions
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;