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

use a click to chance a slot

Browse source
This commit is contained in:
David Botton 2022-02-15 15:30:00 -05:00
parent aa3de3d5ac
commit 9ee0b4eeab
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tutorial/29-tutorial.lisp
View file

@ -22,7 +22,9 @@
(tmp (create-br body))
(t1 (create-div body :content "[counter]"))
(i3 (create-form-element body :text
:label (create-label body :content "Change my-count:"))))
:label (create-label body :content "Change my-count:")))
(tmp (create-br body))
(t2 (create-div body :content "'Hello'")))
(declare (ignore tmp))
;; We set up direct relationships between lisp objects and clog objects
;; any change to i1 will change my-slot and any change to my-slot
@ -35,6 +37,8 @@
;; and i3's value will be transformed to an integer
(link-form-element-to-slot i3 lisp-obj my-count
:transform #'parse-integer)
;; Clicking on t2 will set my-slot to its text
(link-element-to-slot t2 lisp-obj my-slot :set-event #'set-on-click)
;; This change of my-slot will immediately change in the web page
(setf (my-slot lisp-obj) "First Value")
(set-on-click b1