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

Add all basic events

Browse source
This commit is contained in:
David Botton 2022-01-25 22:46:17 -05:00
parent 62c2e07bc9
commit 972d14cd9b
3 changed files with 107 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

8
tools/clog-builder.lisp
View file

@ -360,7 +360,7 @@ not a temporary attached one when using select-control."
events)
(dolist (event (reverse (getf info :events)))
(let ((attr (format nil "data-~A" (getf event :name))))
(push `(,(getf event :name) ,(attribute control attr) ,(getf event :parameters)
(push `(,(getf event :name) ,(attribute control attr) ,(getf event :parameters)
,(getf event :setup)
,(lambda (obj)
(let ((txt (text obj)))
@ -776,17 +776,17 @@ of controls and double click to select control."
html-id
(format nil "CLOG:~A" (type-of control)))
vars)
(let ((info (control-info (attribute control "data-clog-type")))
props)
(let ((info (control-info (attribute control "data-clog-type"))))
(dolist (event (getf info :events))
(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\) ~A\)\)~%"
"\(set-~A \(~A panel\) \(lambda \(~A\) \(declare \(ignorable ~A\)\) ~A\)\)~%"
(getf event :name)
vname
(getf event :parameters)
(getf event :parameters)
handler)
events))))))))
(get-control-list app panel-id))