diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-08-22 18:01:18 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-08-22 18:01:18 +0000 |
| commit | cf35586ee3a057e3b83c6f495d725aee08edb8fa (patch) | |
| tree | 164d43d9e11b8b202e51247747f2a42e284c951c /perl-install | |
| parent | 16d7837cdcd2fd847e8876f6d7cd3373645d645a (diff) | |
| download | drakx-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.pm | 5 |
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; } |