summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/my_gtk.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index ac0dbb8d5..66f9ac1b6 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -323,8 +323,9 @@ sub create_packtable($@) {
my ($j) = @_;
if (defined $_) {
ref $_ or $_ = new Gtk::Label($_);
- $w->attach($_, $j, $j + 1, $i, $i + 1, 'fill', 'fill', 5, 0);
-# $w->attach_defaults($_, $j, $j + 1, $i, $i + 1);
+ $options->{no_expand} ?
+ $w->attach($_, $j, $j + 1, $i, $i + 1, 'fill', 'fill', 5, 0) :
+ $w->attach_defaults($_, $j, $j + 1, $i, $i + 1);
$_->show;
}
} @$_;