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

bidirectonal links

Browse source
This commit is contained in:
David Botton 2022-02-15 14:47:37 -05:00
parent 95b22e46f0
commit 523af33dbd
3 changed files with 39 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

10
tutorial/29-tutorial.lisp
View file

@ -25,12 +25,10 @@
:label (create-label body :content "Change my-count:"))))
(declare (ignore tmp))
;; We set up direct relationships between lisp objects and clog objects
;; any change to i1 will change my-slot
(link-form-element-to-slot i1 lisp-obj my-slot)
;; any change to my-slot will change i1 after transforming
;; my-slot to upercase
(link-slot-to-form-element lisp-obj my-slot i1
:transform #'string-upcase)
;; any change to i1 will change my-slot and any change to my-slot
;; will change i1.
(link-slot-and-form-element lisp-obj my-slot i1
:transform-to-element #'string-upcase)
;; any change to my-count will change t1
(link-slot-to-element lisp-obj my-count t1)
;; any change to i3 will change my-count