From 8593e2ff76de0625d879f313966d386b61d1e96e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 30 Jul 2008 17:23:59 +0000
Subject: (_gtk__Fixed) add support for image background

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

diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index a86f69c3c..b7490b41d 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -582,6 +582,13 @@ sub _gtk__Fixed {
 	$w = Gtk2::Fixed->new;
 	$w->set_has_window(delete $opts->{has_window}) if exists $opts->{has_window};
         $w->put(delete $opts->{child}, delete $opts->{x}, delete $opts->{y}) if exists $opts->{child};
+        if ($opts->{pixbuf_file}) {
+            my $pixbuf = gtknew('Pixbuf', file => delete $opts->{pixbuf_file}) if $opts->{pixbuf_file};
+            $w->signal_connect(
+                realize => sub {
+                    ugtk2::set_back_pixbuf($w, $pixbuf);
+                });
+        }
     }
     $w;
 }
-- 
cgit v1.2.1