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 tutorial 9

Browse source
This commit is contained in:
David Botton 2021-01-12 21:04:36 -05:00
parent 70c2e8fc87
commit c55742badf
1 changed files with 17 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

23
tutorial/09-tutorial.lisp
View file

@ -27,19 +27,30 @@
(fe1 (create-form-element f1 :text :label tmp))
(tmp (create-br f1))
(tmp (create-label f1 :content "Pick a color:"))
(fe2 (create-form-element f1 :color :label tmp))
(fe2 (create-form-element
f1 :color :value "#ffffff" :label tmp))
(tmp (create-br f1))
(tmp (create-form-element f1 :submit :value "OK"))
(tmp (create-form-element f1 :reset :value "Start Again"))
(dl1 (create-data-list f1)))
(dl))
(setf (place-holder fe1) "type here..")
(setf (requiredp fe1) t)
(setf (size fe1) 60)
(add-option dl1 "Cool Title")
(add-option dl1 "Not So Cool Title")
(add-option dl1 "Why Not Another Title")
(set-data-list fe1 dl1)
(setf dl (create-data-list f1))
(add-option dl "Cool Title")
(add-option dl "Not So Cool Title")
(add-option dl "Why Not Another Title")
(set-data-list fe1 dl)
(setf dl (create-data-list f1))
(add-option dl "#ffffff")
(add-option dl "#ff0000")
(add-option dl "#00ff00")
(add-option dl "#0000ff")
(add-option dl "#ff00ff")
(set-data-list fe2 dl)
(set-on-submit f1
(lambda (obj)