summaryrefslogtreecommitdiffstats
path: root/docs/interactive/ask_from
diff options
context:
space:
mode:
authorMystery Man <unknown@mandriva.org>2002-09-20 07:09:47 +0000
committerMystery Man <unknown@mandriva.org>2002-09-20 07:09:47 +0000
commit2669028cdc73d0113b3fcedb552e44912f57fc77 (patch)
treea50f571c70a419da6ce53423feb1e149480a19b0 /docs/interactive/ask_from
parent6f1bbe0c09afd41c15ef66986f8a78a4fe8e4e54 (diff)
downloaddrakx-backup-do-not-use-2669028cdc73d0113b3fcedb552e44912f57fc77.tar
drakx-backup-do-not-use-2669028cdc73d0113b3fcedb552e44912f57fc77.tar.gz
drakx-backup-do-not-use-2669028cdc73d0113b3fcedb552e44912f57fc77.tar.bz2
drakx-backup-do-not-use-2669028cdc73d0113b3fcedb552e44912f57fc77.tar.xz
drakx-backup-do-not-use-2669028cdc73d0113b3fcedb552e44912f57fc77.zip
This commit was manufactured by cvs2svn to create tag 'V1_1_9_52mdk'.V1_1_9_52mdk
Diffstat (limited to 'docs/interactive/ask_from')
-rwxr-xr-xdocs/interactive/ask_from29
1 files changed, 0 insertions, 29 deletions
diff --git a/docs/interactive/ask_from b/docs/interactive/ask_from
deleted file mode 100755
index dad69247e..000000000
--- a/docs/interactive/ask_from
+++ /dev/null
@@ -1,29 +0,0 @@
-#!/usr/bin/perl
-# Yves Duret <yduret at mandrakesoft.com>
-# license: GPL
-
-use lib qw(/usr/lib/libDrakX);
-use interactive;
-
-my $irq=1;
-my $login;
-my $login2="editable";
-my $check;
-my $range=57;
-
-my $in = 'interactive'->vnew(undef, 'default');
-
-$in->ask_from("window title - ask_from",
- "message\nexamples of utilisation of ask_from",
- [
- { label => "enter scalar", val => \$irq },
- { label => "combo (type=>combo optionnal)", val => \$login, list => ['Netherlands', 'France', 'Belgium', 'Italy', 'UK'], type => 'combo'},
- { label => "choose from list editable and sorted", val => \$login2, list => ['Netherlands', 'France', 'Belgium', 'Italy', 'UK'], not_edit => 0, sort => 1},
- { label => "check box", val => \$check, type => "bool", text => "text" },
- { label => "range", val => \$range, type => 'range', min => 0, max => 100 },
- ],
- complete => sub { print "complete\n";print "$irq\n$login\n$range\n"; },
-# focus_out => sub { print "focus_out\n"},
-# changed => sub { print "changed\n"; },
- ) or $in->exit(0);
-$in->exit(0);