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

form-dialog

Browse source
This commit is contained in:
David Botton 2021-02-23 15:43:01 -05:00
parent 6222e60482
commit d58bcdee4b
2 changed files with 91 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
tutorial/22-tutorial.lisp
View file

@ -72,6 +72,15 @@
(server-file-dialog obj "Server files" "./" (lambda (fname)
(alert-dialog obj fname))))
(defun on-dlg-form (obj)
(form-dialog obj "Please enter your information." '(("Name" "name")
("Address" "address")
("City" "city")
("State" "st")
("Zip" "zip"))
(lambda (results)
(alert-dialog obj results))))
(defun on-help-about (obj)
(let* ((about (create-gui-window obj
:title "About"
@ -109,6 +118,7 @@
(tmp (create-gui-menu-item dlg :content "Alert Dialog Box" :on-click #'on-dlg-alert))
(tmp (create-gui-menu-item dlg :content "Input Dialog Box" :on-click #'on-dlg-input))
(tmp (create-gui-menu-item dlg :content "Confirm Dialog Box" :on-click #'on-dlg-confirm))
(tmp (create-gui-menu-item dlg :content "Form Dialog Box" :on-click #'on-dlg-form))
(tmp (create-gui-menu-item dlg :content "Server File Dialog Box" :on-click #'on-dlg-file))
(help (create-gui-menu-drop-down menu :content "Help"))
(tmp (create-gui-menu-item help :content "About" :on-click #'on-help-about))