From c702623a6acfcb8f81cf948fe770e4cde95604df Mon Sep 17 00:00:00 2001 From: David Botton Date: Thu, 18 Aug 2022 13:25:25 -0400 Subject: [PATCH] add store-new-objects to swap-element-by-id --- source/clog-element.lisp | 3 +++ tools/clog-builder.lisp | 3 ++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/source/clog-element.lisp b/source/clog-element.lisp index 8ed3349..3048a24 100644 --- a/source/clog-element.lisp +++ b/source/clog-element.lisp @@ -2266,6 +2266,9 @@ CLOG-ELEMENT and set CLOG-ELEMENT to html-id. Returns CLOG-ELEMENT")) (setf (property new "id") html-id) (setf (slot-value new 'html-id) html-id) (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) new)) diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp index bdd3c0d..a9e44ac 100644 --- a/tools/clog-builder.lisp +++ b/tools/clog-builder.lisp @@ -2827,7 +2827,8 @@ of controls and double click to select control." (add-select-option list path name)))) ((and (> (length item) 5) (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 (on-open-file target :open-file item)))))