summaryrefslogtreecommitdiffstats
path: root/docs/interactive/ask_from_treelist
diff options
context:
space:
mode:
Diffstat (limited to 'docs/interactive/ask_from_treelist')
-rwxr-xr-xdocs/interactive/ask_from_treelist27
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);