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 common;
use interactive;
my $in = 'interactive'->vnew(undef, 'default');
my $foo = $in->ask_from_treelist("window title - ask_from_treelist",
"message\nexamples of utilisation of ask_from_treelist",
'|',
['Custom',
'Other|Unlisted',
'Matrox|Millennium II=>Matrox Millennium II',
'Matrox|Millennium G200=>Matrox Millennium G200',
'Matrox|Millennium G400=>Matrox Millennium G400',
'Matrox|Millennium G450=>Matrox Millennium G450',
'Matrox|Millennium G550=>Matrox Millennium G550',
'Sun|FFB 67MHz Creator=>Sun FFB 67MHz Creator',
'Sun|FFB 67MHz Creator 3D=>Sun FFB 67MHz Creator 3D',
'Sun|FFB 75MHz Creator 3D=>Sun FFB 75MHz Creator 3D',
],
'Custom'
) or $in->exit(0);
print "$foo\n";
$in->exit(0);
|
