Tutorial 21

This commit is contained in:
David Botton 2021-02-03 16:45:24 -05:00
parent 7396a49be0
commit b28a0495c7
3 changed files with 8 additions and 8 deletions

View file

@ -10,6 +10,9 @@
(in-package :clog-drop-list)
;;; Next we will use the clog-unordered-list as the base for our new
;;; class clog-drop list and allow access to the "drop root" for
;;; list items to be children of.
(defclass clog-drop-list (clog-unordered-list)
((drop-root :accessor drop-root))
(:documentation "CLOG Drop List object - a collapsable list component"))
@ -17,9 +20,9 @@
(defgeneric drop-root (clog-drop-list)
(:documentation "Accessor for the drop list root, create clog-list-items
on the drop-root."))
(defgeneric create-drop-list (clog-obj &key content class html-id auto-place)
(:documentation "Create a toggler with CONTENT as the top of tree."))
(:documentation "Create a drop-list with CONTENT as the top of tree."))
(defmethod create-drop-list ((obj clog-obj) &key (content "")
(class nil)

View file

@ -53,3 +53,4 @@ Tutorial Summary
- 18-tutorial.lisp - Drag and Drop
- 19-tutorial.lisp - Using JavaScript components
- 20-tutorial.lisp - New CLOG plugin from JavaScript component
- 21-tutorial.lisp - New CLOG plugin in Common-Lisp