6 lines
221 B
Common Lisp
6 lines
221 B
Common Lisp
(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))))
|