mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -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

3
tutorial/22-tutorial.lisp
View file

@ -73,7 +73,8 @@
(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."
'(("Title" "title" :select (("Mr." "mr")
("Mrs." "mrs") ("Mrs." "mrs")
("Ms." "ms") ("Ms." "ms")
("Other" "other"))) ("Other" "other")))