diff options
author | Mystery Man <unknown@mandriva.org> | 2005-09-02 22:32:32 +0000 |
---|---|---|
committer | Mystery Man <unknown@mandriva.org> | 2005-09-02 22:32:32 +0000 |
commit | bd9ae60ea7df3a2dc09798ea1cba6f55f2c3f0e4 (patch) | |
tree | 7a03e33fba584c7014f990f1448a337627d50484 /docs/interactive/ask_from | |
parent | 4da1048be0a7528a1a9f55e6f87cb2766508473b (diff) | |
download | drakx-backup-do-not-use-10_3_0_53mdk.tar drakx-backup-do-not-use-10_3_0_53mdk.tar.gz drakx-backup-do-not-use-10_3_0_53mdk.tar.bz2 drakx-backup-do-not-use-10_3_0_53mdk.tar.xz drakx-backup-do-not-use-10_3_0_53mdk.zip |
This commit was manufactured by cvs2svn to create tagV10_3_0_53mdk
'V10_3_0_53mdk'.
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); |