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

Post creation call back for settings. img and link added.

Browse source
This commit is contained in:
David Botton 2022-01-21 12:00:11 -05:00
parent 1bd269dd40
commit 3977cec559
2 changed files with 32 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tools/clog-builder.lisp
View file

@ -124,7 +124,9 @@
:value (getf control-record :create-value)))
(t nil))))
(when control
(setf (attribute control "data-clog-type") control-type-name))
(setf (attribute control "data-clog-type") control-type-name)
(when (getf control-record :setup)
(funcall (getf control-record :setup) control control-record)))
control))
(defun drop-new-control (app content data next-id &key win)