summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-02-21 17:59:09 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-02-21 17:59:09 +0000
commitc18552d7a02dfc62ce43160b58db8ad606085cee (patch)
treef61e497217998ebf66bc727ea95c8416d131144a /perl-install/interactive.pm
parent00845c290fbfdf0015871323b10b3d90af613fca (diff)
downloaddrakx-c18552d7a02dfc62ce43160b58db8ad606085cee.tar
drakx-c18552d7a02dfc62ce43160b58db8ad606085cee.tar.gz
drakx-c18552d7a02dfc62ce43160b58db8ad606085cee.tar.bz2
drakx-c18552d7a02dfc62ce43160b58db8ad606085cee.tar.xz
drakx-c18552d7a02dfc62ce43160b58db8ad606085cee.zip
no_comment
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm17
1 files changed, 15 insertions, 2 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 79df5be2c..ac8ced5a2 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -112,12 +112,17 @@ sub ask_from_list2($$$$;$) {
$o->ask_from_listW($title, [ deref($message) ], $l, $def || $l->[0]);
}
-sub ask_many_from_list_ref($$$$;$) {
+sub ask_many_from_list_ref {
my ($o, $title, $message, $l, $val) = @_;
return 1 if @$l == 0;
$o->ask_many_from_list_refW($title, [ deref($message) ], $l, $val);
}
-sub ask_many_from_list($$$$;$) {
+sub ask_many_from_list_with_help_ref {
+ my ($o, $title, $message, $l, $help, $val) = @_;
+ return 1 if @$l == 0;
+ $o->ask_many_from_list_with_help_refW($title, [ deref($message) ], $l, $help, $val);
+}
+sub ask_many_from_list {
my ($o, $title, $message, $l, $def) = @_;
my $val = [ map { my $i = $_; \$i } @$def ];
@@ -125,6 +130,14 @@ sub ask_many_from_list($$$$;$) {
$o->ask_many_from_list_ref($title, $message, $l, $val) ?
[ map { $$_ } @$val ] : undef;
}
+sub ask_many_from_list_with_help {
+ my ($o, $title, $message, $l, $help, $def) = @_;
+
+ my $val = [ map { my $i = $_; \$i } @$def ];
+
+ $o->ask_many_from_list_with_help_ref($title, $message, $l, $help, $val) ?
+ [ map { $$_ } @$val ] : undef;
+}
sub ask_from_entry {
my ($o, $title, $message, $label, $def, %callback) = @_;