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

use ResizeObserver instead of set events on the connection window

Browse source
This commit is contained in:
David Botton 2024-08-11 18:51:17 -04:00
parent 4c2fd7d8e3
commit d924cc437c
1 changed files with 11 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

19
tools/clog-builder-render.lisp
View file

@ -122,14 +122,17 @@
(funcall (getf control-record :on-setup) (funcall (getf control-record :on-setup)
control control-record) control control-record)
handler))) handler)))
(unless (equal resizeh "") (unless (equal resizeh "")
(push (format nil (push (format nil
" \(set-on-resize \(window \(connection-body panel\)\) " \(js-execute panel
\(lambda \(obj\) \(format nil \"new ResizeObserver\(\(\) => {
\(declare \(ignore obj\)\) ~~A.trigger\('resize'\);
\(jquery-trigger \(~A panel\) \"resize\"\)\)\)" }\).observe\(~~A\)\"
vname) \(jquery \(~A panel\)\)
creates)) \(script-id \(~A panel\)\)\)\)"
vname
vname)
creates))
(unless (equal handler "") (unless (equal handler "")
(push (format nil (push (format nil
" \(let \(\(target \(~A panel\)\)\) ~ " \(let \(\(target \(~A panel\)\)\) ~