mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-15 15:00:24 -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

4
tools/clog-builder-settings.lisp
View file

@ -472,7 +472,9 @@
:parameters "target")))
(defparameter *events-element*
'((:name "on-click"
'((:name "on-create"
:parameters "target")
(:name "on-click"
:parameters "target")
(:name "on-focus"
:parameters "target")

11
tools/clog-builder.lisp
View file

@ -553,6 +553,7 @@ 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 ""))
(unless (equalp (getf event :name) "on-create")
(push (format nil
" \(set-~A \(~A panel\) \(lambda \(~A\) \(declare \(ignorable ~A\)\) ~A\)\)~%"
(getf event :name)
@ -560,7 +561,15 @@ not a temporary attached one when using select-control."
(getf event :parameters)
(getf event :parameters)
handler)
events))))))))
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\"\)