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

Start of form elements and handling submit

Browse source
This commit is contained in:
David Botton 2021-01-12 00:41:15 -05:00
parent d864468524
commit 5ff987c1ef
4 changed files with 59 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

13
tutorial/09-tutorial.lisp
View file

@ -11,9 +11,20 @@
(t3 (create-button body :content "Tab3"))
(p1 (create-div body :content "Panel1 - Type here"))
(p2 (create-div body :content "Panel2 - Type here"))
(p3 (create-div body :content "Panel3 - Type here")))
(p3 (create-div body :content "Panel3 - Type here"))
(f1 (create-form p1))
(fe1 (create-form-element f1 :text :value "Stuff"))
(fe2 (create-form-element f1 :submit :value "OK"))
(fe3 (create-form-element f1 :reset :value "Start Again")))
(place-after t3 (create-br body))
(place-after fe1 (create-br body))
(set-on-submit f1
(lambda (obj)
(setf (title (html-document body)) (attribute fe1 "value"))
(setf (hiddenp f1) t)
(create-span p1 "<br><b>Your form has been submitted</b>")))
(setf (width p1) 600)
(setf (width p2) 600)