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))))
(defun on-dlg-form (obj)
(form-dialog obj "Please enter your information." '(("Title" "title" (("Mr." "mr")
("Mrs." "mrs")
("Ms." "ms")
("Other" "other")))
("Name" "name")
("Address" "address")
("City" "city")
("State" "st")
("Zip" "zip"))
(form-dialog obj "Please enter your information."
'(("Title" "title" :select (("Mr." "mr")
("Mrs." "mrs")
("Ms." "ms")
("Other" "other")))
("Name" "name")
("Address" "address")
("City" "city")
("State" "st")
("Zip" "zip"))
(lambda (results)
(alert-dialog obj results))
:height 550))