summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-09-17 21:40:21 +0000
committerThierry Vignaud <tv@mandriva.org>2008-09-17 21:40:21 +0000
commit7976d195653a3d788655f9a3ff7fce8c22c2880f (patch)
treecab2543f0964d9117515ef3e345735d0e27560c5 /perl-install
parent7706d3ed042a8a87fd18e94f96f10cb1825d7ea6 (diff)
downloaddrakx-7976d195653a3d788655f9a3ff7fce8c22c2880f.tar
drakx-7976d195653a3d788655f9a3ff7fce8c22c2880f.tar.gz
drakx-7976d195653a3d788655f9a3ff7fce8c22c2880f.tar.bz2
drakx-7976d195653a3d788655f9a3ff7fce8c22c2880f.tar.xz
drakx-7976d195653a3d788655f9a3ff7fce8c22c2880f.zip
(_gtknew_handle_layout_children) split it out of _gtk__Fixed() (needed for next commit)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/mygtk2.pm8
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index aacfea56e..117529bab 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -635,7 +635,13 @@ sub _gtk__Fixed {
if (!$w) {
$w = Gtk2::Fixed->new;
$w->set_has_window(delete $opts->{has_window}) if exists $opts->{has_window};
+ _gtknew_handle_layout_children($w, $opts);
+ }
+ $w;
+}
+sub _gtknew_handle_layout_children {
+ my ($w, $opts) = @_;
$opts->{children} ||= [];
push @{$opts->{children}}, [ delete $opts->{child}, delete $opts->{x}, delete $opts->{y} ] if exists $opts->{child};
foreach (@{$opts->{children}}) {
@@ -650,8 +656,6 @@ sub _gtk__Fixed {
ugtk2::set_back_pixbuf($w, $pixbuf);
});
}
- }
- $w;
}