From 0a21fcc245d8489d2abb73ba3bf0ba99e2e7957d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 21 Jan 2001 23:51:00 +0000 Subject: (create_ctree): fix case with formatted list --- perl-install/interactive_gtk.pm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'perl-install') diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm index bed7e1f8d..2dbc4e45c 100644 --- a/perl-install/interactive_gtk.pm +++ b/perl-install/interactive_gtk.pm @@ -141,10 +141,13 @@ sub create_ctree { $tree->signal_connect(tree_select_row => sub { $curr = $_[1]; $curr->row->is_leaf or return; - my @l; for (my $c = $curr; $c; $c = $c->row->parent) { - unshift @l, first $tree->node_get_pixtext($c, 0); + my @ll; for (my $c = $curr; $c; $c = $c->row->parent) { + unshift @ll, first $tree->node_get_pixtext($c, 0); } - ${$e->{val}} = join $e->{separator}, @l; + my $val = join $e->{separator}, @ll; + mapn { + ${$e->{val}} = $_[1] if $val eq $_[0] + } \@l, $e->{list}; &$changed; }); # $tree->signal_connect(button_press_event => sub { &$leave if $_[1]{type} =~ /^2/ }); -- cgit v1.2.1