diff options
author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-07 18:18:09 +0100 |
---|---|---|
committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 23:28:16 +0100 |
commit | 847c743fa76267f8e58df6882222ea8b2cae9a13 (patch) | |
tree | bbb51132361a82843c63cd6bbd8e41dd88dbc041 /perl-install/mygtk3.pm | |
parent | 0d20a8090e7a402ae33b08e8a1e62ca176166b03 (diff) | |
download | drakx-847c743fa76267f8e58df6882222ea8b2cae9a13.tar drakx-847c743fa76267f8e58df6882222ea8b2cae9a13.tar.gz drakx-847c743fa76267f8e58df6882222ea8b2cae9a13.tar.bz2 drakx-847c743fa76267f8e58df6882222ea8b2cae9a13.tar.xz drakx-847c743fa76267f8e58df6882222ea8b2cae9a13.zip |
drop support for Image_using_pixmap
cairo as used by gtk+ does a better job those days anyway...
Diffstat (limited to 'perl-install/mygtk3.pm')
-rw-r--r-- | perl-install/mygtk3.pm | 8 |
1 files changed, 1 insertions, 7 deletions
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); |