diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-01-21 23:51:00 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-01-21 23:51:00 +0000 |
| commit | 0a21fcc245d8489d2abb73ba3bf0ba99e2e7957d (patch) | |
| tree | 6e7f81b59af860a8354a2848381af3d7bf6de689 /perl-install | |
| parent | ef2fc9271457604bd677e0017fb9d13f06cdf41a (diff) | |
| download | drakx-backup-do-not-use-0a21fcc245d8489d2abb73ba3bf0ba99e2e7957d.tar drakx-backup-do-not-use-0a21fcc245d8489d2abb73ba3bf0ba99e2e7957d.tar.gz drakx-backup-do-not-use-0a21fcc245d8489d2abb73ba3bf0ba99e2e7957d.tar.bz2 drakx-backup-do-not-use-0a21fcc245d8489d2abb73ba3bf0ba99e2e7957d.tar.xz drakx-backup-do-not-use-0a21fcc245d8489d2abb73ba3bf0ba99e2e7957d.zip | |
(create_ctree): fix case with formatted list
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/interactive_gtk.pm | 9 |
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/ }); |