diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-23 13:32:35 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-23 13:32:35 +0000 |
| commit | 17b9b9a8933ce8549ce3ab7f3ffd47cb3e1a026d (patch) | |
| tree | eb1ecd4e9ac132649b06c73720fe6c57ad9b4131 /perl-install | |
| parent | 2455ee778145294c011771f8988b8f14a2e2b7ff (diff) | |
| download | drakx-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.pm | 6 |
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}, |