summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-02-22 10:26:55 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-02-22 10:26:55 +0000
commit9cb5cb2a00640129fe459915f8a58113317db5fa (patch)
treee4f0ecea76442ba004e493dc9ab9c643f4122b64 /perl-install/interactive.pm
parentc2c4191802c0f819109d9210d6e3ab8d99dea25e (diff)
downloaddrakx-9cb5cb2a00640129fe459915f8a58113317db5fa.tar
drakx-9cb5cb2a00640129fe459915f8a58113317db5fa.tar.gz
drakx-9cb5cb2a00640129fe459915f8a58113317db5fa.tar.bz2
drakx-9cb5cb2a00640129fe459915f8a58113317db5fa.tar.xz
drakx-9cb5cb2a00640129fe459915f8a58113317db5fa.zip
no_comment
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm20
1 files changed, 20 insertions, 0 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index ac8ced5a2..5d4254cc1 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -112,6 +112,19 @@ sub ask_from_list2($$$$;$) {
$o->ask_from_listW($title, [ deref($message) ], $l, $def || $l->[0]);
}
+
+sub ask_from_treelist {
+ my ($o, $title, $message, $separator, $l, $def) = @_;
+ $o->ask_from_treelistW($title, [ deref($message) ], $separator, [ sort @$l ], $def || $l->[0]);
+}
+#- defaults to simple ask_from_list
+sub ask_from_treelistW($$$$;$) {
+ my ($o, $title, $message, $separator, $l, $def) = @_;
+ $o->ask_from_listW($title, [ deref($message) ], $l, $def);
+}
+
+
+
sub ask_many_from_list_ref {
my ($o, $title, $message, $l, $val) = @_;
return 1 if @$l == 0;
@@ -122,6 +135,13 @@ sub ask_many_from_list_with_help_ref {
return 1 if @$l == 0;
$o->ask_many_from_list_with_help_refW($title, [ deref($message) ], $l, $help, $val);
}
+
+#- defaults to without help
+sub ask_many_from_list_with_help_refW {
+ my ($o, $title, $messages, $list, $help, $val) = @_;
+ $o->ask_many_from_list_refW($title, $messages, $list, $val);
+}
+
sub ask_many_from_list {
my ($o, $title, $message, $l, $def) = @_;