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

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))))