diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-02-02 16:35:29 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-02-02 16:35:29 +0000 |
| commit | 60fb9895cc10ace473f874b539e24ebc497fa098 (patch) | |
| tree | 74f7dda6563cd3b462d6be8c354438bd5f85a8b9 /perl-install | |
| parent | 8d901d9fbca6686495c059151757aea193066995 (diff) | |
| download | drakx-60fb9895cc10ace473f874b539e24ebc497fa098.tar drakx-60fb9895cc10ace473f874b539e24ebc497fa098.tar.gz drakx-60fb9895cc10ace473f874b539e24ebc497fa098.tar.bz2 drakx-60fb9895cc10ace473f874b539e24ebc497fa098.tar.xz drakx-60fb9895cc10ace473f874b539e24ebc497fa098.zip | |
(ask_from_entries_refW): use gtkxpm
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/interactive_gtk.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm index 523d5302c..88b5a0999 100644 --- a/perl-install/interactive_gtk.pm +++ b/perl-install/interactive_gtk.pm @@ -262,7 +262,7 @@ sub ask_from_entries_refW { gtkdestroy($e->{icon}); my $f = $e->{icon2f}->($_[0]); $e->{icon} = -e $f ? - new Gtk::Pixmap(gtkcreate_xpm($mainw->{window}, $f)) : + gtkxpm($mainw->{window}, $f) : new Gtk::Label(may_apply($e->{format}, $_[0])); $w->add($e->{icon}); $e->{icon}->show; @@ -329,7 +329,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} ? new Gtk::Pixmap(gtkcreate_xpm($mainw->{window}, $e->{icon})) : '' }; + icon_w => -e $e->{icon} ? gtkxpm($mainw->{window}, $e->{icon}) : '' }; }; @widgets_always = map_index { $create_widget->($_, $::i ) } @$l; @widgets_advanced = map_index { $create_widget->($_, $::i + @$l) } @$l2; |