From 64aa6cb3c08ce2c0164398712e106397f041b374 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 9 Jan 2001 23:33:37 +0000
Subject: (create_packtable): no_expand option added

---
 perl-install/my_gtk.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'perl-install/my_gtk.pm')

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;
 	    }
 	} @$_;
-- 
cgit v1.2.1