mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-15 06:50:20 -08:00
Code Issues Projects Releases Wiki Activity

lists of objects

Browse source
This commit is contained in:
David Botton 2024-06-09 20:27:53 -04:00
parent e589a4ed4e
commit ac85b38c91
1 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

14
tools/clog-builder-scope.lisp
View file

@ -58,6 +58,10 @@ name. If CLOG-BODY not set use *clog-debug-instance*"
(escape-lisp (package-name (symbol-package sym))) (escape-lisp (package-name (symbol-package sym)))
(error () (error ()
(escape-lisp sym)))) (escape-lisp sym))))
(add-list (node lst)
(mapcar (lambda (object)
(add-class node (class-of object) object))
lst))
(add-class (node class object) (add-class (node class object)
(let* ((is-root (typep node 'clog-panel)) (let* ((is-root (typep node 'clog-panel))
(class-tree (create-clog-tree (if is-root (class-tree (create-clog-tree (if is-root
@ -76,10 +80,12 @@ name. If CLOG-BODY not set use *clog-debug-instance*"
(if (typep object class) (if (typep object class)
(format nil " : Object Value ~A" (escape-lisp object)) (format nil " : Object Value ~A" (escape-lisp object))
""))))) "")))))
(when (consp object)
(add-list class-tree object))
(create-clog-tree (tree-root class-tree) (create-clog-tree (tree-root class-tree)
:node-html "<span style='color:red'>&#9282;</a>" :node-html "<span style='color:red'>&#9282;</a>"
:content "Precedence List" :content "Precedence List"
:visible is-root :visible nil
:indent-level (1+ (indent-level class-tree)) :indent-level (1+ (indent-level class-tree))
:fill-function (lambda (obj) :fill-function (lambda (obj)
(on-precedences obj class object))) (on-precedences obj class object)))
@ -122,14 +128,14 @@ name. If CLOG-BODY not set use *clog-debug-instance*"
(create-clog-tree (tree-root class-tree) (create-clog-tree (tree-root class-tree)
:node-html "<b><span style='color:red'>&#9776;</span></b>" :node-html "<b><span style='color:red'>&#9776;</span></b>"
:content "<b>Class Slots</b>" :content "<b>Class Slots</b>"
:visible is-root :visible nil
:indent-level (1+ (indent-level class-tree)) :indent-level (1+ (indent-level class-tree))
:fill-function (lambda (obj) :fill-function (lambda (obj)
(on-calc-slots obj class object))) (on-calc-slots obj class object)))
(create-clog-tree (tree-root class-tree) (create-clog-tree (tree-root class-tree)
:node-html "<b><span style='color:red'>&#9649;</span></b>" :node-html "<b><span style='color:red'>&#9649;</span></b>"
:content "<b>Class Methods</b>" :content "<b>Class Methods</b>"
:visible is-root :visible nil
:indent-level (1+ (indent-level class-tree)) :indent-level (1+ (indent-level class-tree))
:fill-function (lambda (obj) :fill-function (lambda (obj)
(on-calc-methods obj class)))))) (on-calc-methods obj class))))))
@ -311,9 +317,9 @@ name. If CLOG-BODY not set use *clog-debug-instance*"
(closer-mop:class-direct-slots dclass)))) (closer-mop:class-direct-slots dclass))))
(on-change (object) (on-change (object)
(setf (text tree) "") (setf (text tree) "")
(setf class (class-of object))
(create-div tree :class "w3-tiny w3-center" (create-div tree :class "w3-tiny w3-center"
:content "left-click - drill down / right-click - system browse<br><br>") :content "left-click - drill down / right-click - system browse<br><br>")
(setf class (class-of object))
(add-class tree class object))) (add-class tree class object)))
(set-on-change root-obj (lambda (obj) (set-on-change root-obj (lambda (obj)
(declare (ignore obj)) (declare (ignore obj))