mirror of
https://github.com/rabbibotton/clog.git
synced 2025-12-15 06:50:20 -08:00
43 lines
2 KiB
Text
43 lines
2 KiB
Text
(in-package :<%= (@ sys-name) %>)
|
|
|
|
(progn
|
|
(clog-tools:add-supported-controls
|
|
(list '(:name "group"
|
|
:description "<%= (@ sys-name) %> Controls"
|
|
:create nil
|
|
:create-type nil
|
|
:events nil
|
|
:properties nil)
|
|
`(;; unique name to control used to identify it the .clog xml
|
|
:name "<%= (@ sys-name) %>"
|
|
;; how control appears in builder control list
|
|
:description "<%= (@ sys-name) %>"
|
|
;; the common lisp type of the control
|
|
:clog-type <%= (@ sys-name) %>:<%= (@ sys-name) %>-element
|
|
;; the create-function used to create the function
|
|
;; at _design time_ at run time only clog:attach-as-child is used
|
|
;; any initialization at _run time_ is done with :on-setup below.
|
|
:create <%= (@ sys-name) %>:create-<%= (@ sys-name) %>-design
|
|
;; clog has the following create-types
|
|
;; :base - create
|
|
;; :element - create create-content
|
|
;; :form - create create-param create-value
|
|
;; :text-area - create create-value
|
|
;; :custom-query - create (ask user for string)
|
|
;; :custom - create create-content
|
|
:create-type :base
|
|
;; setup the control at _design time_ and custom attributes
|
|
:setup ,(lambda (control content control-record)
|
|
(declare (ignore content) (ignore control-record))
|
|
;; default custom attribute values and events at design time
|
|
)
|
|
;; code to run at _run time_ after all controls attached to panel
|
|
:on-setup ,(lambda (control control-record)
|
|
(declare (ignore control control-record))
|
|
;; initialization at run time and apply custom attributes
|
|
(format nil "(<%= (@ sys-name) %>:attach-<%= (@ sys-name) %> target)"))
|
|
;; events handled
|
|
:events (,@clog-tools::*events-element*)
|
|
;; properties handled
|
|
:properties (,@clog-tools::*props-element*))))
|
|
(format t "~%<%= (@ SYS-NAME) %> installed in CLOG Builder"))
|