From 847c743fa76267f8e58df6882222ea8b2cae9a13 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 7 Nov 2013 18:18:09 +0100 Subject: drop support for Image_using_pixmap cairo as used by gtk+ does a better job those days anyway... --- perl-install/mygtk3.pm | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) (limited to 'perl-install/mygtk3.pm') diff --git a/perl-install/mygtk3.pm b/perl-install/mygtk3.pm index df7ac63fc..c5ab05f83 100644 --- a/perl-install/mygtk3.pm +++ b/perl-install/mygtk3.pm @@ -318,8 +318,6 @@ sub _gtk__Pixbuf { $w; } -# Image_using_pixmap is rendered using DITHER_MAX which is much better on 16bpp displays -sub _gtk__Image_using_pixmap { &_gtk__Image } sub _gtk__Image { my ($w, $opts, $class) = @_; @@ -331,11 +329,7 @@ sub _gtk__Image { $w->{options} = { flip => delete $opts->{flip} }; - $w->{set_from_file} = $class =~ /using_pixmap/ ? sub { - my ($w, $file) = @_; - my $pixmap = mygtk3::pixmap_from_pixbuf($w, gtknew('Pixbuf', file => $file)); - $w->set_from_pixmap($pixmap, undef); - } : sub { + $w->{set_from_file} = sub { my ($w, $file, $o_size) = @_; my $pixbuf = gtknew('Pixbuf', file => $file, if_($o_size, size => $o_size), %{$w->{options}}); $w->set_from_pixbuf($pixbuf); -- cgit v1.2.1