From bd4da8d9900c122bf0c2b372adc78d298066f00d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Sun, 17 Nov 2013 12:43:15 +0100
Subject: add support for set an image directly from a pixbuf

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

(limited to 'perl-install')

diff --git a/perl-install/mygtk3.pm b/perl-install/mygtk3.pm
index 468d57420..d6cfd9025 100644
--- a/perl-install/mygtk3.pm
+++ b/perl-install/mygtk3.pm
@@ -350,6 +350,8 @@ sub _gtk__Image {
 	};
 	gtkval_register($w, $file_ref, $set);
 	$set->() if $$file_ref;
+    } elsif (my $pixbuf = delete $opts->{pixbuf}) {
+	$w->set_from_pixbuf($pixbuf);
     }
     $w;
 }
-- 
cgit v1.2.1