diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-09-17 21:40:21 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-09-17 21:40:21 +0000 |
| commit | 7976d195653a3d788655f9a3ff7fce8c22c2880f (patch) | |
| tree | cab2543f0964d9117515ef3e345735d0e27560c5 /perl-install/mygtk2.pm | |
| parent | 7706d3ed042a8a87fd18e94f96f10cb1825d7ea6 (diff) | |
| download | drakx-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/mygtk2.pm')
| -rw-r--r-- | perl-install/mygtk2.pm | 8 |
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; } |