mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

:filename and :select support for form-dialog

Browse source
This commit is contained in:
David Botton 2021-02-24 13:53:28 -05:00
parent affe3dd05e
commit da89ed8c0f
1 changed files with 10 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

19
tutorial/22-tutorial.lisp
View file

@ -73,15 +73,16 @@
(alert-dialog obj fname)))) (alert-dialog obj fname))))
(defun on-dlg-form (obj) (defun on-dlg-form (obj)
(form-dialog obj "Please enter your information." '(("Title" "title" (("Mr." "mr") (form-dialog obj "Please enter your information."
("Mrs." "mrs") '(("Title" "title" :select (("Mr." "mr")
("Ms." "ms") ("Mrs." "mrs")
("Other" "other"))) ("Ms." "ms")
("Name" "name") ("Other" "other")))
("Address" "address") ("Name" "name")
("City" "city") ("Address" "address")
("State" "st") ("City" "city")
("Zip" "zip")) ("State" "st")
("Zip" "zip"))
(lambda (results) (lambda (results)
(alert-dialog obj results)) (alert-dialog obj results))
:height 550)) :height 550))