docs/interactive/ask_from_listf


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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);