From 0a21fcc245d8489d2abb73ba3bf0ba99e2e7957d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
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