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

custom inspectors

Browse source
This commit is contained in:
David Botton 2024-05-28 20:23:08 -04:00
parent 13077e6928
commit cc0555b35f
3 changed files with 43 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

9
tools/clog-builder-api.lisp
View file

@ -1,6 +1,6 @@
(in-package :clog-tools)
;; Control Record Utilities / Plugin API for controls
;; Control Record Utilities / Plugin APIs
(defun control-info (control-type-name)
"Return the control-record for CONTROL-TYPE-NAME from supported controls. (Exported)"
@ -33,6 +33,10 @@ replaced. (Exported)"
*supported-controls*)
(list r)))))
(defun add-inspector (name func)
"Add a custom inspector with NAME and (FUNC symbol title value clog-obj)"
(push (list :name name :func func) *inspectors*))
(defun reset-control-pallete (panel)
(let* ((app (connection-data-item panel "builder-app-data"))
(pallete (select-tool app)))
@ -41,5 +45,4 @@ replaced. (Exported)"
(dolist (control *supported-controls*)
(if (equal (getf control :name) "group")
(add-select-optgroup pallete (getf control :description))
(add-select-option pallete (getf control :name) (getf control :description)))))))
(add-select-option pallete (getf control :name) (getf control :description)))))))