summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-01-09 23:33:37 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-01-09 23:33:37 +0000
commit64aa6cb3c08ce2c0164398712e106397f041b374 (patch)
tree4bab7b4948008a943b06c3f7547497f00bdfde7f /perl-install/my_gtk.pm
parent8a8bda15f50c56b06ac0e4940399cbe0681a279a (diff)
downloaddrakx-64aa6cb3c08ce2c0164398712e106397f041b374.tar
drakx-64aa6cb3c08ce2c0164398712e106397f041b374.tar.gz
drakx-64aa6cb3c08ce2c0164398712e106397f041b374.tar.bz2
drakx-64aa6cb3c08ce2c0164398712e106397f041b374.tar.xz
drakx-64aa6cb3c08ce2c0164398712e106397f041b374.zip
(create_packtable): no_expand option added
Diffstat (limited to 'perl-install/my_gtk.pm')
-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;
}
} @$_;