1 files changed, 27 insertions, 0 deletions
diff --git a/docs/interactive/ask_from_list b/docs/interactive/ask_from_list
new file mode 100755
index 000000000..63c0ee996
--- /dev/null
+++ b/docs/interactive/ask_from_list
@@ -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 %l = (
+	 0 => "Welcome To Crackers",
+	 1 => "Poor",
+	 2 => "Low",
+	 3 => "Medium",
+	 4 => "High",
+	 5 => "Paranoid",
+	);
+
+my $in = 'interactive'->vnew(undef, 'default');
+
+my $level = $in->ask_from_list("window title - ask_from_list",
+			       "radio button\nexamples of utilisation of ask_from_list",
+			       [ values %l ], $l{2}
+			      ) or $in->exit(0);
+
+print "$level\n";
+$in->exit(0);
+