From db9344149320870fd92d24b704f673e4880b2b6a Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 15 Sep 2000 21:26:17 +0000 Subject: no_comment --- perl-install/interactive.pm | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'perl-install/interactive.pm') diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm index 60a0fb419..b797b8fc5 100644 --- a/perl-install/interactive.pm +++ b/perl-install/interactive.pm @@ -154,6 +154,17 @@ sub ask_from_list2_with_help($$$$$;$) { $o->ask_from_list_with_helpW($title, [ deref($message) ], $l, $help, $def || $l->[0]); } +sub ask_from_treelistf { + my ($o, $title, $message, $separator, $f, $l, $def) = @_; + my (@l,%l); my $i = 0; foreach (@$l) { + my $v = $f->($_, $i++); + push @l, $v; + $l{$v} = $_; + } + my $r = ask_from_treelist($o, $title, $message, $separator, \@l, defined $def ? $f->($def) : $def) or return; + $l{$r}; +} + sub ask_from_treelist { my ($o, $title, $message, $separator, $l, $def) = @_; $o->ask_from_treelistW($title, [ deref($message) ], $separator, [ sort @$l ], $def || $l->[0]); -- cgit v1.2.1