mirror of
https://github.com/rabbibotton/clog.git
synced 2025-12-06 02:30:42 -08:00
Tutorial 21
This commit is contained in:
parent
7396a49be0
commit
b28a0495c7
3 changed files with 8 additions and 8 deletions
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue