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

fix typo

Browse source
This commit is contained in:
David Botton 2022-02-13 19:20:50 -05:00
parent 44f96ffca7
commit cbd18532cc
2 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
source/clog-presentations.lisp
View file

@ -23,18 +23,18 @@
`(set-on-change ,clog-obj
(lambda (obj)
(declare (ignore obj))
(setf (,slot-name ,object) (value ,clog-obj)))))
(setf (,accessor ,object) (value ,clog-obj)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;
;; link-element-to-slot ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;
(defmacro link-element-to-slot (clog-obj object slot-name)
(defmacro link-element-to-slot (clog-obj object accessor)
"Link changes to (text CLOG-OBJ) to (ACESSOR OBJECT)"
`(set-on-change ,clog-obj
(lambda (obj)
(declare (ignore obj))
(setf (,slot-name ,object) (text ,clog-obj)))))
(setf (,accessor ,object) (text ,clog-obj)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; link-slot-to-form-element ;;

1
tutorial/29-tutorial.lisp
View file

@ -20,6 +20,7 @@
(b2 (create-button body :content "Get (my-slot lisp-obj) Value")))
(link-form-element-to-slot i1 lisp-obj my-slot)
(link-slot-to-form-element lisp-obj my-slot i1)
(setf (my-slot lisp-obj) "First Value")
(set-on-click b1
(lambda (obj)
(setf (my-slot lisp-obj) (value i2))))