From ecd1f99bd7d3fa98d77b517e3c93683895cafa5d Mon Sep 17 00:00:00 2001 From: David Botton Date: Tue, 20 Sep 2022 19:21:45 -0400 Subject: [PATCH] bug fix on open gui panel --- tools/clog-builder.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp index 9549d98..ff822ae 100644 --- a/tools/clog-builder.lisp +++ b/tools/clog-builder.lisp @@ -1739,7 +1739,8 @@ It parse the string TEXT without using READ functions." (defun on-new-builder-panel (obj &key (open-file nil)) "Open new panel" - (unless (window-to-top-by-param obj open-file) + (unless (and open-file + (window-to-top-by-param obj open-file)) (let* ((app (connection-data-item obj "builder-app-data")) (win (create-gui-window obj :top 40 :left 225 :width 645 :height 430