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

add not about :on-load

Browse source
This commit is contained in:
David Botton 2022-06-27 19:52:40 -04:00
parent d421af0763
commit f2be5258fb
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
templates/projects/clog-plugin/tmpl-tools.lisp.lt
View file

@ -30,12 +30,21 @@
:setup ,(lambda (control content control-record) :setup ,(lambda (control content control-record)
(declare (ignore content) (ignore control-record)) (declare (ignore content) (ignore control-record))
;; default custom attribute values and events at design time ;; default custom attribute values and events at design time
;; tell the builder this is a composite control, ie made of multiple
;; controls
;; (setf (attribute control "data-clog-composite-control") "t")
) )
;; code to run at _run time_ after all controls attached to panel ;; code to run at _run time_ after all controls attached to panel
:on-setup ,(lambda (control control-record) :on-setup ,(lambda (control control-record)
(declare (ignore control control-record)) (declare (ignore control control-record))
;; initialization at run time and apply custom attributes ;; initialization at run time and apply custom attributes
(format nil "(<%= (@ sys-name) %>:attach-<%= (@ sys-name) %> target)")) (format nil "(<%= (@ sys-name) %>:attach-<%= (@ sys-name) %> target)"))
;; code to run at _design time_ on load from .clog file or paste
;; :on-load ,(lambda (control control-record)
;; (declare (ignore control-record))
;; ;; code to attach functionality if your create for design time
;; )
;; events handled ;; events handled
:events (,@clog-tools::*events-element*) :events (,@clog-tools::*events-element*)
;; properties handled ;; properties handled