mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 18:50:42 -08:00
Code Issues Projects Releases Wiki Activity

add store-new-objects to swap-element-by-id

Browse source
This commit is contained in:
David Botton 2022-08-18 13:25:25 -04:00
parent 6ef9b9c20a
commit c702623a6a
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
source/clog-element.lisp
View file

@ -2266,6 +2266,9 @@ CLOG-ELEMENT and set CLOG-ELEMENT to html-id. Returns CLOG-ELEMENT"))
(setf (property new "id") html-id) (setf (property new "id") html-id)
(setf (slot-value new 'html-id) html-id) (setf (slot-value new 'html-id) html-id)
(replace-element obj new) (replace-element obj new)
(when (or *store-new-objects*
(connection-data-item new html-id))
(setf (connection-data-item new html-id) new))
(destroy obj) (destroy obj)
new)) new))

3
tools/clog-builder.lisp
View file

@ -2827,7 +2827,8 @@ of controls and double click to select control."
(add-select-option list path name)))) (add-select-option list path name))))
((and (> (length item) 5) ((and (> (length item) 5)
(equal (subseq item (- (length item) 5)) ".clog")) (equal (subseq item (- (length item) 5)) ".clog"))
(on-new-builder-panel target :open-file item)) (on-new-builder-panel target :open-file item)
(on-show-control-events-win target))
(t (t
(on-open-file target :open-file item))))) (on-open-file target :open-file item)))))