diff options
author | Yves Duret <yduret@mandriva.com> | 2002-01-29 16:13:04 +0000 |
---|---|---|
committer | Yves Duret <yduret@mandriva.com> | 2002-01-29 16:13:04 +0000 |
commit | 68cb104a88ae6fef8298acab166dccd464d170b7 (patch) | |
tree | 1cf1f7b49a244357a5086dcb24055a6d8576f2b4 /docs/interactive/ask_from_listf | |
parent | 58be4a692e597d85219f921181c0e7f01f9844cc (diff) | |
download | drakx-backup-do-not-use-68cb104a88ae6fef8298acab166dccd464d170b7.tar drakx-backup-do-not-use-68cb104a88ae6fef8298acab166dccd464d170b7.tar.gz drakx-backup-do-not-use-68cb104a88ae6fef8298acab166dccd464d170b7.tar.bz2 drakx-backup-do-not-use-68cb104a88ae6fef8298acab166dccd464d170b7.tar.xz drakx-backup-do-not-use-68cb104a88ae6fef8298acab166dccd464d170b7.zip |
added some snipet coe for example
Diffstat (limited to 'docs/interactive/ask_from_listf')
-rwxr-xr-x | docs/interactive/ask_from_listf | 27 |
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); + |