summaryrefslogtreecommitdiffstats
path: root/docs/interactive/ask_from_listf
diff options
context:
space:
mode:
authorYves Duret <yduret@mandriva.com>2002-01-29 16:13:04 +0000
committerYves Duret <yduret@mandriva.com>2002-01-29 16:13:04 +0000
commit68cb104a88ae6fef8298acab166dccd464d170b7 (patch)
tree1cf1f7b49a244357a5086dcb24055a6d8576f2b4 /docs/interactive/ask_from_listf
parent58be4a692e597d85219f921181c0e7f01f9844cc (diff)
downloaddrakx-68cb104a88ae6fef8298acab166dccd464d170b7.tar
drakx-68cb104a88ae6fef8298acab166dccd464d170b7.tar.gz
drakx-68cb104a88ae6fef8298acab166dccd464d170b7.tar.bz2
drakx-68cb104a88ae6fef8298acab166dccd464d170b7.tar.xz
drakx-68cb104a88ae6fef8298acab166dccd464d170b7.zip
added some snipet coe for example
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);
+