From b0cd44a8d43653ca039814220608e5bfb9a23bdd Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 24 Sep 2008 23:44:25 +0000
Subject: (_gtk__Image) restore support of size parameter (it's really too late
 to commit)

---
 perl-install/mygtk2.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/mygtk2.pm')

diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 2c325ef41..a29d916ea 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -321,7 +321,7 @@ sub _gtk__Image {
 	$w = Gtk2::Image->new;
 	$w->{format} = delete $opts->{format} if exists $opts->{format};
 
-        $w->{options} = { if_($o_size, size => $o_size), flip => delete $opts->{flip} };
+        $w->{options} = { flip => delete $opts->{flip} };
 
         $w->{set_from_file} = $class =~ /using_pixmap/ ? sub { 
             my ($w, $file) = @_;
@@ -343,7 +343,7 @@ sub _gtk__Image {
                                });
         } : sub { 
             my ($w, $file, $o_size) = @_;
-            my $pixbuf = gtknew('Pixbuf', file => $file, %{$w->{options}});
+            my $pixbuf = gtknew('Pixbuf', file => $file, if_($o_size, size => $o_size), %{$w->{options}});
             $w->set_from_pixbuf($pixbuf);
         };
     }
-- 
cgit v1.2.1