all tasks

2013-04-11 01:07:29 -07:00 · 2013-04-11 01:07:29 -07:00 · 68f8f3e56b
commit 68f8f3e56b
parent b83f433714
14735 changed files with 178959 additions and 0 deletions
--- a/Task/User-input-Graphical/Perl/user-input-graphical-2.pl
+++ b/Task/User-input-Graphical/Perl/user-input-graphical-2.pl
@ -0,0 +1,16 @@
+use XUL::Gui;
+
+display Window
+    title  => 'Input Window',
+    width  => 250,
+    height => 150,
+    TextBox( id => 'txt' ),
+    TextBox( id => 'num', type => 'number' ),
+    Button(
+        label => 'OK',
+        oncommand => sub {
+            print "String: " . ID(txt)->value . "\n"
+                . "Number: " . ID(num)->value . "\n";
+            quit;
+        },
+    );