summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-08-30 16:23:14 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-08-30 16:23:14 +0000
commitb0c6eeac8d1f131aaba5beb6842e88384d2f1aed (patch)
tree94fee8554f8c8336337ee477ca9a9484152efec1 /perl-install
parentb512e53808bbfae58b30c2f56c7336808f0bc509 (diff)
downloaddrakx-b0c6eeac8d1f131aaba5beb6842e88384d2f1aed.tar
drakx-b0c6eeac8d1f131aaba5beb6842e88384d2f1aed.tar.gz
drakx-b0c6eeac8d1f131aaba5beb6842e88384d2f1aed.tar.bz2
drakx-b0c6eeac8d1f131aaba5beb6842e88384d2f1aed.tar.xz
drakx-b0c6eeac8d1f131aaba5beb6842e88384d2f1aed.zip
add children_centered (was already children_tight, children_loose and children)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/mygtk2.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index ad19700b3..8abaf1046 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -643,7 +643,10 @@ sub _gtknew_handle_children {
my @child = exists $opts->{children_tight} ? map { [ 0, $_ ] } @{delete $opts->{children_tight}} :
exists $opts->{children_loose} ? map { [ 1, $_ ] } @{delete $opts->{children_loose}} :
- exists $opts->{children} ? group_by2(@{delete $opts->{children}}) : ();
+ exists $opts->{children} ? group_by2(@{delete $opts->{children}}) :
+ exists $opts->{children_centered} ?
+ ([ 1, gtknew('VBox') ], (map { [ 0, $_ ] } @{delete $opts->{children_centered}}), [ 1, gtknew('VBox') ]) :
+ ();
my $padding = delete $opts->{padding};