From 17b9b9a8933ce8549ce3ab7f3ffd47cb3e1a026d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 23 Jan 2004 13:32:35 +0000
Subject: (ask_fromW) enable TreeView to take all availlable space

---
 perl-install/interactive/gtk.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'perl-install/interactive/gtk.pm')

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 21b9550c6..03d8ec187 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -586,8 +586,10 @@ sub ask_fromW {
     my $realw_sizegrp = Gtk2::SizeGroup->new('horizontal');
     my $create_widgets = sub {
 	my (@widgets) = @_;
-	gtkpack__(Gtk2::VBox->new,
-               map { 
+	gtkpack_(Gtk2::VBox->new,
+              map {
+                  print "widget is «$_->{real_w}»\n";
+                  ($_->{real_w}->isa("Gtk2::ScrolledWindow") ? 1 : 0), 
                    $_->{real_w}->isa("Gtk2::CheckButton") && !$_->{icon_w} && !$_->{e}{label} ?
                      $_->{real_w} : gtkpack_(Gtk2::HBox->new,
                                              0, $_->{icon_w},
-- 
cgit v1.2.1