summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-01-06 10:48:28 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-01-06 10:48:28 +0000
commit58eb085007f207adf529d6075edba7346f65e196 (patch)
tree197efcbee458fd21638c22de49cdf378f5b40ed5 /perl-install
parent388560b00310373fb022f134b87fc8125a30024e (diff)
downloaddrakx-58eb085007f207adf529d6075edba7346f65e196.tar
drakx-58eb085007f207adf529d6075edba7346f65e196.tar.gz
drakx-58eb085007f207adf529d6075edba7346f65e196.tar.bz2
drakx-58eb085007f207adf529d6075edba7346f65e196.tar.xz
drakx-58eb085007f207adf529d6075edba7346f65e196.zip
allow setting padding for pack_start, but only globally (it works like spacing, but also include spacing at beginning, and at end)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/mygtk2.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index c088fdbbe..2472d12a9 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -539,11 +539,13 @@ sub _gtknew_handle_children {
exists $opts->{children_loose} ? map { [ 1, $_ ] } @{delete $opts->{children_loose}} :
exists $opts->{children} ? group_by2(@{delete $opts->{children}}) : ();
+ my $padding = delete $opts->{padding};
+
foreach (@child) {
my ($fill, $child) = @$_;
$fill eq '0' || $fill eq '1' or internal_error("odd {children} parameter must be 0 or 1 (got $fill)");
ref $child or $child = Gtk2::WrappedLabel->new($child);
- $w->pack_start($child, $fill, $fill, 0);
+ $w->pack_start($child, $fill, $fill, $padding || 0);
$child->show;
}
}