From 294f399ae97c94f5fbf68f4293aa89bb6d301a97 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud 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/interactive/gtk.pm | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'perl-install/interactive/gtk.pm') 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