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

Allow embedded drop lists

Browse source
This commit is contained in:
David Botton 2022-05-13 16:04:04 -04:00
parent c0463c7b7f
commit 8ec927e6e5
1 changed files with 12 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

19
tutorial/21-tutorial.lisp
View file

@ -34,12 +34,13 @@ on the drop-root."))
(header (create-list-item new-obj :content content))) (header (create-list-item new-obj :content content)))
(change-class new-obj 'clog-drop-list) (change-class new-obj 'clog-drop-list)
(setf (drop-root new-obj) (create-unordered-list header)) (setf (drop-root new-obj) (create-unordered-list header))
(set-on-click header (set-on-mouse-down header
(lambda (obj) (lambda (obj data)
(declare (ignore obj)) (declare (ignore obj data))
(if (hiddenp (drop-root new-obj)) (if (hiddenp (drop-root new-obj))
(setf (hiddenp (drop-root new-obj)) nil) (setf (hiddenp (drop-root new-obj)) nil)
(setf (hiddenp (drop-root new-obj)) t)))) (setf (hiddenp (drop-root new-obj)) t)))
:cancel-event t) ; prevent event bubble up tree
new-obj)) new-obj))
(defpackage #:clog-tut-21 (defpackage #:clog-tut-21
@ -53,7 +54,11 @@ on the drop-root."))
(item (create-list-item (clog-drop-list:drop-root drop-list) :content "Item 1")) (item (create-list-item (clog-drop-list:drop-root drop-list) :content "Item 1"))
(item (create-list-item (clog-drop-list:drop-root drop-list) :content "Item 2")) (item (create-list-item (clog-drop-list:drop-root drop-list) :content "Item 2"))
(item (create-list-item (clog-drop-list:drop-root drop-list) :content "Item 3")) (item (create-list-item (clog-drop-list:drop-root drop-list) :content "Item 3"))
(item (create-list-item (clog-drop-list:drop-root drop-list) :content "Item 4"))) (item (create-list-item (clog-drop-list:drop-root drop-list) :content "Item 4"))
(drop-list2 (clog-drop-list:create-drop-list item :content "Another Drop"))
(item (create-list-item (clog-drop-list:drop-root drop-list2) :content "Item 1"))
(item (create-list-item (clog-drop-list:drop-root drop-list2) :content "Item 2")))
(declare (ignore item)))) (declare (ignore item))))
(defun start-tutorial () (defun start-tutorial ()