summaryrefslogtreecommitdiffstats
path: root/docs/interactive/ask_from_listf
diff options
context:
space:
mode:
Diffstat (limited to 'docs/interactive/ask_from_listf')
-rwxr-xr-xdocs/interactive/ask_from_listf27
1 files changed, 27 insertions, 0 deletions
diff --git a/docs/interactive/ask_from_listf b/docs/interactive/ask_from_listf
new file mode 100755
index 000000000..077540b49
--- /dev/null
+++ b/docs/interactive/ask_from_listf
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+# Yves Duret <yduret at mandrakesoft.com>
+# license: GPL
+
+use lib qw(/usr/lib/libDrakX);
+use interactive;
+use Data::Dumper;
+
+my $in = 'interactive'->vnew(undef, 'default');
+
+my @m=(
+ { description => "dhcpcd",
+ c => 1},
+ { description => "dhcpxd",
+ c => 3},
+ { description => "dhcp-client",
+ c => 4},
+ );
+my $f = $in->ask_from_listf(_("ask_from_listf"),
+ _("Which dhcp client do you want to use?\nDefault is dhcpcd"),
+ sub { $_[0]{description} },
+ \@m );
+
+print Data::Dumper->Dump([$f],['f']) . "\n";
+
+$in->exit(0);
+