From 294f399ae97c94f5fbf68f4293aa89bb6d301a97 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 19 Aug 2008 08:37:39 +0000
Subject: (all_focusable_entries) fix crash with advanced widgets (regression
 introduced in when moving advanced widgets in their own dialog instead of in
 another block child of an expander: we do not have any real Gtk2::Expander
 widget anymore)

---
 perl-install/install/NEWS       | 2 ++
 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 {
-- 
cgit v1.2.1