From 68cb104a88ae6fef8298acab166dccd464d170b7 Mon Sep 17 00:00:00 2001
From: Yves Duret <yduret@mandriva.com>
Date: Tue, 29 Jan 2002 16:13:04 +0000
Subject: added some snipet coe for example

---
 docs/interactive/ask_from_treelist | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100755 docs/interactive/ask_from_treelist

(limited to 'docs/interactive/ask_from_treelist')

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);
-- 
cgit v1.2.1