From 48c33bfd4d22cddddc083472fbb1b221d602e76e Mon Sep 17 00:00:00 2001 From: David Botton Date: Tue, 30 Aug 2022 11:44:13 -0400 Subject: [PATCH] show events window on new panel --- tools/clog-builder-projects.lisp | 3 +-- tools/clog-builder.lisp | 4 +++- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/tools/clog-builder-projects.lisp b/tools/clog-builder-projects.lisp index 14e9434..30cf110 100644 --- a/tools/clog-builder-projects.lisp +++ b/tools/clog-builder-projects.lisp @@ -317,7 +317,6 @@ (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-show-control-events-win target)) + (on-new-builder-panel target :open-file item)) (t (on-open-file target :open-file item))))) diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp index 8a84771..cc3e41e 100644 --- a/tools/clog-builder.lisp +++ b/tools/clog-builder.lisp @@ -1564,6 +1564,7 @@ of controls and double click to select control." (setf (attribute content "data-in-package") "clog-user") (setf (attribute content "data-custom-slots") "") ;; activate associated windows on open + (on-show-control-events-win win) (on-populate-control-properties-win content :win win) (on-populate-control-list-win content :win win) ;; setup window events @@ -2185,7 +2186,8 @@ of controls and double click to select control." (txt-link (create-div txt-area :content (format nil "
~A
" link))) content) - (declare (ignore page-link txt-link)) + (declare (ignore page-link txt-link)) + (on-show-control-events-win win) (setf (gethash panel-uid *app-sync-hash*) app) (setf (gethash (format nil "~A-win" panel-uid) *app-sync-hash*) win) (setf (gethash (format nil "~A-link" panel-uid) *app-sync-hash*)