summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive/gtk.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-08-19 08:37:39 +0000
committerThierry Vignaud <tv@mandriva.org>2008-08-19 08:37:39 +0000
commit294f399ae97c94f5fbf68f4293aa89bb6d301a97 (patch)
tree4f5f74f3e96856a950971c6b6589e7dab76454e4 /perl-install/interactive/gtk.pm
parent2a14e8c34fda320edbfa49030047628e585c94e0 (diff)
downloaddrakx-294f399ae97c94f5fbf68f4293aa89bb6d301a97.tar
drakx-294f399ae97c94f5fbf68f4293aa89bb6d301a97.tar.gz
drakx-294f399ae97c94f5fbf68f4293aa89bb6d301a97.tar.bz2
drakx-294f399ae97c94f5fbf68f4293aa89bb6d301a97.tar.xz
drakx-294f399ae97c94f5fbf68f4293aa89bb6d301a97.zip
(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)
Diffstat (limited to 'perl-install/interactive/gtk.pm')
-rw-r--r--perl-install/interactive/gtk.pm5
1 files changed, 1 insertions, 4 deletions
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 {