summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-09-17 21:34:53 +0000
committerThierry Vignaud <tv@mandriva.org>2008-09-17 21:34:53 +0000
commit7706d3ed042a8a87fd18e94f96f10cb1825d7ea6 (patch)
treec1486379e5b5cc30edcdb271fa2aafdc59978f98 /perl-install
parent3d66668dae4c4a559411d83f88ceee2f62ba8de2 (diff)
downloaddrakx-7706d3ed042a8a87fd18e94f96f10cb1825d7ea6.tar
drakx-7706d3ed042a8a87fd18e94f96f10cb1825d7ea6.tar.gz
drakx-7706d3ed042a8a87fd18e94f96f10cb1825d7ea6.tar.bz2
drakx-7706d3ed042a8a87fd18e94f96f10cb1825d7ea6.tar.xz
drakx-7706d3ed042a8a87fd18e94f96f10cb1825d7ea6.zip
(_gtk__Fixed) enable to provide more than one child
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/mygtk2.pm9
1 files changed, 8 insertions, 1 deletions
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(