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

Added additonal form element properties and datalists

Browse source
This commit is contained in:
David Botton 2021-01-12 20:47:18 -05:00
parent efd75a84a2
commit 70c2e8fc87
8 changed files with 693 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

15
tutorial/09-tutorial.lisp
View file

@ -30,9 +30,16 @@
(fe2 (create-form-element f1 :color :label tmp))
(tmp (create-br f1))
(tmp (create-form-element f1 :submit :value "OK"))
(tmp (create-form-element f1 :reset :value "Start Again")))
(tmp (create-form-element f1 :reset :value "Start Again"))
(dl1 (create-data-list f1)))
(setf (place-holder fe1) "type here..")
(setf (requiredp fe1) t)
(add-option dl1 "Cool Title")
(add-option dl1 "Not So Cool Title")
(add-option dl1 "Why Not Another Title")
(set-data-list fe1 dl1)
(set-on-submit f1
(lambda (obj)
@ -61,9 +68,9 @@
(setf (hiddenp p2) t)
(setf (hiddenp p3) t)
(setf (background-color t1) :grey)
(setf (background-color t2) :grey)
(setf (background-color t3) :grey)
(setf (background-color t1) :lightgrey)
(setf (background-color t2) :lightgrey)
(setf (background-color t3) :lightgrey)
(setf (background-color last-tab) :lightblue)
(setf (hiddenp obj) nil)