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

on-create event

Browse source
This commit is contained in:
David Botton 2022-02-17 15:08:09 -05:00
parent e9772838aa
commit 9b4ed6f74e
2 changed files with 20 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

25
tools/clog-builder.lisp
View file

@ -553,14 +553,23 @@ not a temporary attached one when using select-control."
(let ((handler (attribute control (format nil "data-~A" (getf event :name)))))
(unless (or (equalp handler "undefined")
(equal handler ""))
(push (format nil
" \(set-~A \(~A panel\) \(lambda \(~A\) \(declare \(ignorable ~A\)\) ~A\)\)~%"
(getf event :name)
vname
(getf event :parameters)
(getf event :parameters)
handler)
events))))))))
(unless (equalp (getf event :name) "on-create")
(push (format nil
" \(set-~A \(~A panel\) \(lambda \(~A\) \(declare \(ignorable ~A\)\) ~A\)\)~%"
(getf event :name)
vname
(getf event :parameters)
(getf event :parameters)
handler)
events))))))
(let ((handler (attribute control "data-on-create")))
(unless (or (equalp handler "undefined")
(equal handler ""))
(push (format nil
" \(let \(\(target \(~A panel\)\)\) \(declare \(ignorable target\)\) ~A\)~%"
vname
handler)
events))))))
(get-control-list app panel-id))
(let ((result (format nil
"\(in-package \"~A\"\)