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

Added to form-dialog ability to handle select options

Browse source
This commit is contained in:
David Botton 2021-02-23 18:27:51 -05:00
parent b4b7d5c643
commit 7c5a2167a9
5 changed files with 85 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tutorial/22-tutorial.lisp
View file

@ -73,7 +73,11 @@
(alert-dialog obj fname))))
(defun on-dlg-form (obj)
(form-dialog obj "Please enter your information." '(("Name" "name")
(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")