summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-11-08 01:48:28 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-11-08 01:48:28 +0000
commit0f16f9693f47687136e5058916d0d04dcb611217 (patch)
tree621a0c76850737d6353385ece3f3fda54219f7b0 /perl-install/interactive.pm
parent83e615434cf1bc3a692ab95b9b8aac3af6c366c8 (diff)
downloaddrakx-0f16f9693f47687136e5058916d0d04dcb611217.tar
drakx-0f16f9693f47687136e5058916d0d04dcb611217.tar.gz
drakx-0f16f9693f47687136e5058916d0d04dcb611217.tar.bz2
drakx-0f16f9693f47687136e5058916d0d04dcb611217.tar.xz
drakx-0f16f9693f47687136e5058916d0d04dcb611217.zip
no_comment
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm10
1 files changed, 10 insertions, 0 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index ed2c79de4..a67cf7893 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -119,6 +119,16 @@ sub ask_from_entries($$$$;$%) {
map { $$_ } @$val :
undef;
}
+
+sub ask_from_entries_refH($$$;$%) {
+ my ($o, $title, $message, $h, %callback) = @_;
+
+ ask_from_entries_ref($o, $title, $message,
+ [ grep_index { even($::i) } @$h ],
+ [ grep_index { odd($::i) } @$h ],
+ %callback);
+}
+
#- can get a hash of callback: focus_out changed and complete
#- moreove if you pass a hash with a field list -> combo
#- if you pass a hash with a field hidden -> emulate stty -echo