mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -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:14:58 -04:00
parent 8ec927e6e5
commit 7060cae627
1 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

12
tutorial/21-tutorial.lisp
View file

@ -57,9 +57,15 @@ on the drop-root."))
(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))))
(item (create-list-item (clog-drop-list:drop-root drop-list2) :content "Item 2"))
(drop-list3 (clog-drop-list:create-drop-list item :content "Hidden Drop"))
(item (create-list-item (clog-drop-list:drop-root drop-list3) :content "Item 1"))
(item (create-list-item (clog-drop-list:drop-root drop-list3) :content "Item 2"))
(drop-list4 (clog-drop-list:create-drop-list drop-list :content "One more Drop"))
(item (create-list-item (clog-drop-list:drop-root drop-list4) :content "Item 1"))
(item (create-list-item (clog-drop-list:drop-root drop-list4) :content "Item 2")))
(declare (ignore item))
(setf (hiddenp (clog-drop-list:drop-root drop-list3)) t)))
(defun start-tutorial ()
"Start tutorial."