diff options
| -rw-r--r-- | perl-install/install/NEWS | 2 | ||||
| -rw-r--r-- | perl-install/interactive/gtk.pm | 5 |
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 { |