summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/install/NEWS2
-rw-r--r--perl-install/interactive/gtk.pm5
2 files changed, 3 insertions, 4 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index d3eff5617..68b3d46cc 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- fix crash with advanced widgets
+
Version 11.13 - 18 August 2008
- move hardware packages detection code from installer to drakxtools
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index e3cfce740..1bf642e47 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -578,10 +578,7 @@ sub all_entries {
sub all_focusable_entries {
my ($l) = @_;
- map { $_->{type} eq 'expander'
- ? ($_->{w}->get_expanded ? all_focusable_entries($_->{children}) : ())
- : $_;
- } grep { $_->{focus_w} } @$l;
+ grep { $_->{focus_w} } @$l;
}
sub create_widgets_block {