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/Common-Lisp/user-input-graphical-4.lisp
+++ b/Task/User-input-Graphical/Common-Lisp/user-input-graphical-4.lisp
@ -0,0 +1,13 @@
+(capi:define-interface string/integer-prompt () ()
+  (:panes
+   (string-pane
+    capi:text-input-pane
+    :title "Enter a string:")
+   (integer-pane
+    capi:text-input-pane
+    :title "Enter an integer:"
+    :change-callback :redisplay-interface))
+  (:layouts
+   (main
+    capi:column-layout
+    '(string-pane integer-pane))))