diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-09-17 21:34:53 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-09-17 21:34:53 +0000 |
| commit | 7706d3ed042a8a87fd18e94f96f10cb1825d7ea6 (patch) | |
| tree | c1486379e5b5cc30edcdb271fa2aafdc59978f98 /perl-install/mygtk2.pm | |
| parent | 3d66668dae4c4a559411d83f88ceee2f62ba8de2 (diff) | |
| download | drakx-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/mygtk2.pm')
| -rw-r--r-- | perl-install/mygtk2.pm | 9 |
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( |