diff options
author | Mystery Man <unknown@mandriva.org> | 2003-03-10 13:52:45 +0000 |
---|---|---|
committer | Mystery Man <unknown@mandriva.org> | 2003-03-10 13:52:45 +0000 |
commit | c7681947b501455947618f1694df12fbb3c1d367 (patch) | |
tree | f543345cc4a3834b3601cfbb2f9177782544dc79 /docs/interactive/ask_from | |
parent | f9ef1c397c4fcb602a79ac7c0f83d938ff3597f2 (diff) | |
download | drakx-backup-do-not-use-9_1_19mdk.tar drakx-backup-do-not-use-9_1_19mdk.tar.gz drakx-backup-do-not-use-9_1_19mdk.tar.bz2 drakx-backup-do-not-use-9_1_19mdk.tar.xz drakx-backup-do-not-use-9_1_19mdk.zip |
This commit was manufactured by cvs2svn to create tag 'V9_1_19mdk'.V9_1_19mdk
Diffstat (limited to 'docs/interactive/ask_from')
-rwxr-xr-x | docs/interactive/ask_from | 29 |
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); |