mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 18:50:42 -08:00
Code Issues Projects Releases Wiki Activity

Cosmetic changes

Browse source
This commit is contained in:
David Botton 2021-01-12 12:25:50 -05:00
parent 63db3b21f9
commit e4e54ca039
1 changed files with 13 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

20
tutorial/09-tutorial.lisp
View file

@ -6,26 +6,32 @@
(defun on-new-window (body) (defun on-new-window (body)
(let* (last-tab (let* (last-tab
;; Create tabs and panels
(t1 (create-button body :content "Tab1")) (t1 (create-button body :content "Tab1"))
(t2 (create-button body :content "Tab2")) (t2 (create-button body :content "Tab2"))
(t3 (create-button body :content "Tab3")) (t3 (create-button body :content "Tab3"))
(br (create-br body))
(p1 (create-div body)) (p1 (create-div body))
(p2 (create-div body :content "Panel2 - 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))
(l1 (create-label f1 :content "Fill in blank:"))
(fe1 (create-form-element f1 :text :label l1))
(fe2 (create-form-element f1 :submit :value "OK"))
(fe3 (create-form-element f1 :reset :value "Start Again")))
(place-after t3 (create-br body)) ;; Create from for panel 1
(place-after fe1 (create-br body)) (f1 (create-form p1))
(l (create-label f1 :content "Fill in blank:"))
(fe1 (create-form-element f1 :text :label l))
(br (create-br f1))
(l (create-label f1 :content "Pick a color:"))
(fe2 (create-form-element f1 :color :label l))
(br (create-br f1))
(s (create-form-element f1 :submit :value "OK"))
(s (create-form-element f1 :reset :value "Start Again")))
(setf (place-holder fe1) "type here..") (setf (place-holder fe1) "type here..")
(set-on-submit f1 (set-on-submit f1
(lambda (obj) (lambda (obj)
(setf (title (html-document body)) (value fe1)) (setf (title (html-document body)) (value fe1))
(setf (background-color p1) (value fe2))
(setf (hiddenp f1) t) (setf (hiddenp f1) t)
(create-span p1 "<br><b>Your form has been submitted</b>"))) (create-span p1 "<br><b>Your form has been submitted</b>")))