summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-01-21 23:51:00 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-01-21 23:51:00 +0000
commit0a21fcc245d8489d2abb73ba3bf0ba99e2e7957d (patch)
tree6e7f81b59af860a8354a2848381af3d7bf6de689 /perl-install
parentef2fc9271457604bd677e0017fb9d13f06cdf41a (diff)
downloaddrakx-0a21fcc245d8489d2abb73ba3bf0ba99e2e7957d.tar
drakx-0a21fcc245d8489d2abb73ba3bf0ba99e2e7957d.tar.gz
drakx-0a21fcc245d8489d2abb73ba3bf0ba99e2e7957d.tar.bz2
drakx-0a21fcc245d8489d2abb73ba3bf0ba99e2e7957d.tar.xz
drakx-0a21fcc245d8489d2abb73ba3bf0ba99e2e7957d.zip
(create_ctree): fix case with formatted list
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/interactive_gtk.pm9
1 files changed, 6 insertions, 3 deletions
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/ });