From c072369bf4a3d16bb51cd388c4c3ea04cb95b4cc Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Sun, 28 Sep 2008 21:07:32 +0000 Subject: show what is common (btw, 'mcc' option should be either renamed or dropped since mcc doesn't use it since a long time) --- perl-install/mygtk2.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm index 219ae080b..96c153d2c 100644 --- a/perl-install/mygtk2.pm +++ b/perl-install/mygtk2.pm @@ -1081,11 +1081,11 @@ sub _gtk__Table { my $j = $::i; if ($_) { ref $_ or $_ = Gtk2::WrappedLabel->new($_); - $j != $#$l && !$w->{mcc} ? - $w->attach($_, $j, $j + 1, $i, $i + 1, - 'fill', 'fill', $w->{xpadding}, $w->{ypadding}) : - $w->attach($_, $j, $j + 1, $i, $i + 1, - ['expand', 'fill'], ref($_) eq 'Gtk2::ScrolledWindow' || $_->get_data('must_grow') ? ['expand', 'fill'] : [], 0, 0); + $w->attach($_, $j, $j + 1, $i, $i + 1, + $j != $#$l && !$w->{mcc} ? + ('fill', 'fill', $w->{xpadding}, $w->{ypadding}) : + (['expand', 'fill'], ref($_) eq 'Gtk2::ScrolledWindow' || $_->get_data('must_grow') ? + ['expand', 'fill'] : [], 0, 0)); $_->show; } } @$l; -- cgit v1.2.1