diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-01-09 23:33:37 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-01-09 23:33:37 +0000 |
| commit | 64aa6cb3c08ce2c0164398712e106397f041b374 (patch) | |
| tree | 4bab7b4948008a943b06c3f7547497f00bdfde7f | |
| parent | 8a8bda15f50c56b06ac0e4940399cbe0681a279a (diff) | |
| download | drakx-backup-do-not-use-64aa6cb3c08ce2c0164398712e106397f041b374.tar drakx-backup-do-not-use-64aa6cb3c08ce2c0164398712e106397f041b374.tar.gz drakx-backup-do-not-use-64aa6cb3c08ce2c0164398712e106397f041b374.tar.bz2 drakx-backup-do-not-use-64aa6cb3c08ce2c0164398712e106397f041b374.tar.xz drakx-backup-do-not-use-64aa6cb3c08ce2c0164398712e106397f041b374.zip | |
(create_packtable): no_expand option added
| -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; } } @$_; |