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

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))))
(when (current-control app)
(let ((n (get-control-list app p)))
(when n
(maphash (lambda (k v)
(when n
(maphash (lambda (k v)
(declare (ignore k))
(let ((name (attribute v "data-clog-name")))
(push `(:caption ,name :value ,(format nil "(~A panel)" name)
:meta "control")
:meta "control")
l)))
n)
(push '(:caption "target" :value "target"
:meta "builder")
(push '(:caption "target" :value "target"
:meta "builder")
l)
(push '(:caption "panel" :value "panel"
:meta "builder")
(push '(:caption "panel" :value "panel"
:meta "builder")
l))))
l)))
:meta "swank"))

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

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