diff options
Diffstat (limited to 'docs/interactive/ask_from_treelist')
| -rwxr-xr-x | docs/interactive/ask_from_treelist | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/docs/interactive/ask_from_treelist b/docs/interactive/ask_from_treelist new file mode 100755 index 000000000..ade7141d4 --- /dev/null +++ b/docs/interactive/ask_from_treelist @@ -0,0 +1,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); |