Change default group from 1 (daemon) to something more sensible: 100
[mspang/plceo2.git] / test_fr.pl
1
2 require FrontEnd;
3
4 &FrontEnd::Menu("BoxBox", {
5         cow => sub {
6                 print "cow";
7                 &FrontEnd::MsgWait("Cow Done");
8                 return 1;
9         },
10         box => sub {
11                 print "box";
12                 &FrontEnd::MsgWait("Box Done");
13                 return 1;
14         },
15         exi => sub {
16                 return 0;
17         }
18 });
19
20 print &FrontEnd::Prompt("Custom: ", 'custom', sub { (1, 'zing') }), "\n\n";
21 print &FrontEnd::Prompt("Regex: ", 'regex', q/^[a-z]\\d{3}[A-Z]$/), "\n\n";
22 print &FrontEnd::Prompt("String: ", 'string'), "\n\n";
23 print &FrontEnd::Prompt("Yesno: ", 'yesno'), "\n\n";
24 print &FrontEnd::Prompt("Int: ", 'int'), "\n\n";