diff options
| -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}, |