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

double click for text entry window

Browse source
This commit is contained in:
David Botton 2024-07-28 10:58:16 -04:00
parent 4d02a3c689
commit 73157f85fc
6 changed files with 40 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -31,15 +31,20 @@ replaced. (Exported)"
*supported-controls*)
(list r)))))
(defun adjust-control-placer (control)
"If changing a property potentialy can change the size of a control function should be called. (Exported)"
(let ((placer (get-placer control)))
(adjust-placer control placer)))
(defun add-inspector (name func)
"Add a custom inspector with NAME and (FUNC object title value clog-obj)"
"Add a custom inspector with NAME and (FUNC object title value clog-obj). (Exported)"
(setf *inspectors* (remove-if (lambda (x)
(equalp name (getf x :name)))
*inspectors*))
(push (list :name name :func func) *inspectors*))
(defun add-file-extension (name func)
"Add a custom file extension with NAME and (FUNC file dir project clog-obj)"
"Add a custom file extension with NAME and (FUNC file dir project clog-obj). (Exported)"
(setf *file-extensions* (remove-if (lambda (x)
(equalp name (getf x :name)))
*file-extensions*))