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

browser gc and regression further fixed on drop downs

Browse source
This commit is contained in:
David Botton 2024-07-10 16:47:47 -04:00
parent 363f72da5c
commit dafd93bcf5
2 changed files with 11 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

14
tools/clog-builder-ace.lisp
View file

@ -22,19 +22,19 @@
(l (car (swank:simple-completions prefix s)))) (l (car (swank:simple-completions prefix s))))
(when (current-control app) (when (current-control app)
(let ((n (get-control-list app p))) (let ((n (get-control-list app p)))
(when n (when n
(maphash (lambda (k v) (maphash (lambda (k v)
(declare (ignore k)) (declare (ignore k))
(let ((name (attribute v "data-clog-name"))) (let ((name (attribute v "data-clog-name")))
(push `(:caption ,name :value ,(format nil "(~A panel)" name) (push `(:caption ,name :value ,(format nil "(~A panel)" name)
:meta "control") :meta "control")
l))) l)))
n) n)
(push '(:caption "target" :value "target" (push '(:caption "target" :value "target"
:meta "builder") :meta "builder")
l) l)
(push '(:caption "panel" :value "panel" (push '(:caption "panel" :value "panel"
:meta "builder") :meta "builder")
l)))) l))))
l))) l)))
:meta "swank")) :meta "swank"))

6
tools/clog-builder-control-events.lisp
View file

@ -14,11 +14,10 @@
(content (window-content win)) (content (window-content win))
status) status)
(set-geometry win :top "" :bottom 0) (set-geometry win :top "" :bottom 0)
(setf (current-editor-is-lisp app) t)
(set-on-window-focus win (set-on-window-focus win
(lambda (obj) (lambda (obj)
(declare (ignore obj)) (declare (ignore obj))
(setf (current-editor-is-lisp app) "CLOG-USER"))) (setf (current-editor-is-lisp app) t))) ; when t looks up panels package
(setf (control-events-win app) win) (setf (control-events-win app) win)
(setf (events-list app) (create-select content :name "clog-events" :class *builder-event-list-class*)) (setf (events-list app) (create-select content :name "clog-events" :class *builder-event-list-class*))
(setf (positioning (events-list app)) :absolute) (setf (positioning (events-list app)) :absolute)
@ -171,6 +170,7 @@
(setf (inner-html elist) "") (setf (inner-html elist) "")
(remove-attribute elist "data-current-event") (remove-attribute elist "data-current-event")
(setf (text-value (event-editor app)) "") (setf (text-value (event-editor app)) "")
(browser-gc obj)
(setf (clog-ace:read-only-p (event-editor app)) t) (setf (clog-ace:read-only-p (event-editor app)) t)
(when control (when control
(let ((info (control-info (attribute control "data-clog-type")))) (let ((info (control-info (attribute control "data-clog-type"))))
@ -243,6 +243,7 @@
(setf (inner-html elist) "") (setf (inner-html elist) "")
(remove-attribute elist "data-current-js-event") (remove-attribute elist "data-current-js-event")
(setf (text-value (event-js-editor app)) "") (setf (text-value (event-js-editor app)) "")
(browser-gc obj)
(setf (clog-ace:read-only-p (event-js-editor app)) t) (setf (clog-ace:read-only-p (event-js-editor app)) t)
(when control (when control
(let ((info (control-info (attribute control "data-clog-type")))) (let ((info (control-info (attribute control "data-clog-type"))))
@ -313,6 +314,7 @@
(setf (inner-html elist) "") (setf (inner-html elist) "")
(remove-attribute elist "data-current-ps-event") (remove-attribute elist "data-current-ps-event")
(setf (text-value (event-ps-editor app)) "") (setf (text-value (event-ps-editor app)) "")
(browser-gc obj)
(setf (clog-ace:read-only-p (event-ps-editor app)) t) (setf (clog-ace:read-only-p (event-ps-editor app)) t)
(when control (when control
(let ((info (control-info (attribute control "data-clog-type")))) (let ((info (control-info (attribute control "data-clog-type"))))