summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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},