Data commit

Task/User-input-Graphical/Common-Lisp/user-input-graphical-1.lisp

@@ -0,0 +1 @@
+(capi:prompt-for-string "Enter a string:")

Task/User-input-Graphical/Common-Lisp/user-input-graphical-2.lisp

@@ -0,0 +1,4 @@
+(do ((number 0) (okp t))
+    ((or (not okp) (= 75000 number)))
+  (multiple-value-setq (number okp)
+      (capi:prompt-for-integer "Enter an integer:")))

Task/User-input-Graphical/Common-Lisp/user-input-graphical-3.lisp

@@ -0,0 +1,2 @@
+(capi:prompt-for-integer "Enter an integer:"
+                         :ok-check #'(lambda (n) (= n 75000)))

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))))

Task/User-input-Graphical/Common-Lisp/user-input-graphical-5.lisp

@@ -0,0 +1,7 @@
+(defun string/integer-prompt-value (pane)
+  (with-slots (string-pane integer-pane) pane
+    (let* ((string (capi:text-input-pane-text string-pane))
+           (integer-string (capi:text-input-pane-text integer-pane))
+           (integer (when (every 'digit-char-p integer-string)
+                      (parse-integer integer-string :junk-allowed t))))
+      (values (cons string integer)))))

Task/User-input-Graphical/Common-Lisp/user-input-graphical-6.lisp

@@ -0,0 +1,6 @@
+(defun do-prompting ()
+  (capi:popup-confirmer
+   (make-instance 'string/integer-prompt)
+   "Enter some values:"
+   :value-function 'string/integer-prompt-value
+   :ok-check #'(lambda (result) (eql (cdr result) 75000))))