From 7706d3ed042a8a87fd18e94f96f10cb1825d7ea6 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 17 Sep 2008 21:34:53 +0000
Subject: (_gtk__Fixed) enable to provide more than one child

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

(limited to 'perl-install')

diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 2f20a952d..aacfea56e 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -635,7 +635,14 @@ sub _gtk__Fixed {
     if (!$w) {
 	$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};
+
+        $opts->{children} ||= [];
+        push @{$opts->{children}}, [ delete $opts->{child}, delete $opts->{x}, delete $opts->{y} ] if exists $opts->{child};
+        foreach (@{$opts->{children}}) {
+            $w->put(@$_);
+        }
+        delete $opts->{children};
+
         if ($opts->{pixbuf_file}) {
             my $pixbuf = gtknew('Pixbuf', file => delete $opts->{pixbuf_file}) if $opts->{pixbuf_file};
             $w->signal_connect(
-- 
cgit v1.2.1