summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-22 18:01:18 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-22 18:01:18 +0000
commitcf35586ee3a057e3b83c6f495d725aee08edb8fa (patch)
tree164d43d9e11b8b202e51247747f2a42e284c951c /perl-install
parent16d7837cdcd2fd847e8876f6d7cd3373645d645a (diff)
downloaddrakx-cf35586ee3a057e3b83c6f495d725aee08edb8fa.tar
drakx-cf35586ee3a057e3b83c6f495d725aee08edb8fa.tar.gz
drakx-cf35586ee3a057e3b83c6f495d725aee08edb8fa.tar.bz2
drakx-cf35586ee3a057e3b83c6f495d725aee08edb8fa.tar.xz
drakx-cf35586ee3a057e3b83c6f495d725aee08edb8fa.zip
more intelligent setting back the selected value in the clist and ctree
(done already for entry)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/interactive_gtk.pm5
1 files changed, 3 insertions, 2 deletions
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;
}