From cf35586ee3a057e3b83c6f495d725aee08edb8fa Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 22 Aug 2001 18:01:18 +0000
Subject: more intelligent setting back the selected value in the clist and
 ctree (done already for entry)

---
 perl-install/interactive_gtk.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'perl-install/interactive_gtk.pm')

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 78d000601..12fd43c4b 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -140,7 +140,8 @@ sub create_clist {
     $list, sub {
 	my ($v) = @_;
 	eval {
-	    $select->(find_index { $_ eq $v } @{$e->{list}});
+	    my $nb = find_index { $_ eq $v } @{$e->{list}};
+	    $select->($nb) if $nb != $list->focus_row;
 	};
     };
 }
@@ -269,7 +270,7 @@ sub create_ctree {
 
     $tree, sub {
 	my $v = may_apply($e->{format}, $_[0]);
-	$select->($wleaves{$v} || return);
+	$select->($wleaves{$v} || return) if $wleaves{$v} != $tree->selection;
     }, $size;
 }
 
-- 
cgit v1.2.1