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

bug fix on open gui panel

Browse source
This commit is contained in:
David Botton 2022-09-20 19:21:45 -04:00
parent 84d220a501
commit ecd1f99bd7
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
tools/clog-builder.lisp
View file

@ -1739,7 +1739,8 @@ It parse the string TEXT without using READ functions."
(defun on-new-builder-panel (obj &key (open-file nil)) (defun on-new-builder-panel (obj &key (open-file nil))
"Open new panel" "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")) (let* ((app (connection-data-item obj "builder-app-data"))
(win (create-gui-window obj :top 40 :left 225 (win (create-gui-window obj :top 40 :left 225
:width 645 :height 430 :width 645 :height 430