diff options
| -rw-r--r-- | perl-install/my_gtk.pm | 5 |
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; } } @$_; |