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

icon fix

Browse source
This commit is contained in:
David Botton 2024-06-04 11:11:37 -04:00
parent ee0ac055cd
commit 9b3fb49f49
1 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -48,6 +48,7 @@
(class-tree (create-clog-tree (if is-root (class-tree (create-clog-tree (if is-root
node node
(tree-root node)) (tree-root node))
:node-html "<span style='color:orange'>&#9673;</a>"
:visible is-root :visible is-root
:indent-level (if is-root :indent-level (if is-root
0 0
@ -58,28 +59,28 @@
:content (format nil "<b>Class: ~A</b> : Object Value ~A" :content (format nil "<b>Class: ~A</b> : Object Value ~A"
(get-name (class-name class)) (escape-lisp object))))) (get-name (class-name class)) (escape-lisp object)))))
(create-clog-tree (tree-root class-tree) (create-clog-tree (tree-root class-tree)
:node-html "&#x1F46A;" :node-html "<span style='color:red'>&#9282;</a>"
:content "Precedence List" :content "Precedence List"
:visible is-root :visible is-root
: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)))
(create-clog-tree (tree-root class-tree) (create-clog-tree (tree-root class-tree)
:node-html "&#x1F56E;" :node-html "<span style='color:red'>&#9776;</a>"
:content "Slots" :content "Slots"
:visible is-root :visible is-root
:indent-level (1+ (indent-level class-tree)) :indent-level (1+ (indent-level class-tree))
:fill-function (lambda (obj) :fill-function (lambda (obj)
(on-slots obj class object))) (on-slots obj class object)))
(create-clog-tree (tree-root class-tree) (create-clog-tree (tree-root class-tree)
:node-html "&#x1F528;" :node-html "<span style='color:red'>&#9689;</a>"
:content "Direct Generic Functions" :content "Direct Generic Functions"
:visible is-root :visible is-root
:indent-level (1+ (indent-level class-tree)) :indent-level (1+ (indent-level class-tree))
:fill-function (lambda (obj) :fill-function (lambda (obj)
(on-generic obj class))) (on-generic obj class)))
(create-clog-tree (tree-root class-tree) (create-clog-tree (tree-root class-tree)
:node-html "&#x1F45E;" :node-html "<span style='color:red'>&#9649;</a>"
:content "Direct Methods" :content "Direct Methods"
:visible is-root :visible is-root
:indent-level (1+ (indent-level class-tree)) :indent-level (1+ (indent-level class-tree))
@ -98,7 +99,7 @@
(mapcar (lambda (item) (mapcar (lambda (item)
(create-clog-tree (tree-root obj) (create-clog-tree (tree-root obj)
:indent-level (1+ (indent-level obj)) :indent-level (1+ (indent-level obj))
:node-html "&#x1F527;" :node-html "<span style='color:black'>&#9688;</a>"
:visible nil :visible nil
:on-context-menu (lambda (obj) :on-context-menu (lambda (obj)
(on-new-sys-browser obj (on-new-sys-browser obj
@ -111,7 +112,7 @@
(mapcar (lambda (item) (mapcar (lambda (item)
(create-clog-tree (tree-root obj) (create-clog-tree (tree-root obj)
:indent-level (1+ (indent-level obj)) :indent-level (1+ (indent-level obj))
:node-html "&#x1F45F;" :node-html "<span style='color:black'>&#9648;</a>"
:visible nil :visible nil
:on-context-menu (lambda (obj) :on-context-menu (lambda (obj)
(on-new-sys-browser obj (on-new-sys-browser obj
@ -131,7 +132,7 @@
(mapcar (lambda (slot) (mapcar (lambda (slot)
(create-clog-tree (tree-root obj) (create-clog-tree (tree-root obj)
:indent-level (1+ (indent-level obj)) :indent-level (1+ (indent-level obj))
:node-html "&#x1F588;" :node-html "<span style='color:black'>&#9644;</a>"
:visible nil :visible nil
:on-context-menu (lambda (obj) :on-context-menu (lambda (obj)
(on-new-sys-browser obj (on-new-sys-browser obj