summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-23 13:32:35 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-23 13:32:35 +0000
commit17b9b9a8933ce8549ce3ab7f3ffd47cb3e1a026d (patch)
treeeb1ecd4e9ac132649b06c73720fe6c57ad9b4131 /perl-install
parent2455ee778145294c011771f8988b8f14a2e2b7ff (diff)
downloaddrakx-17b9b9a8933ce8549ce3ab7f3ffd47cb3e1a026d.tar
drakx-17b9b9a8933ce8549ce3ab7f3ffd47cb3e1a026d.tar.gz
drakx-17b9b9a8933ce8549ce3ab7f3ffd47cb3e1a026d.tar.bz2
drakx-17b9b9a8933ce8549ce3ab7f3ffd47cb3e1a026d.tar.xz
drakx-17b9b9a8933ce8549ce3ab7f3ffd47cb3e1a026d.zip
(ask_fromW) enable TreeView to take all availlable space
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/interactive/gtk.pm6
1 files changed, 4 insertions, 2 deletions
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},