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

force panel open new window

Browse source
This commit is contained in:
David Botton 2024-07-11 09:40:57 -04:00
parent ba25af0313
commit 9076566aae
6 changed files with 11 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

3
tools/clog-builder.lisp
View file

@ -439,7 +439,7 @@ clog-builder window.")
(on-open-file obj))))
(create-gui-menu-item file :content "New CLOG Panel Editor" :on-click
(lambda (obj)
(if *open-external*
(if (or *open-external* *open-external-panels-always*)
(on-new-builder-panel-ext obj)
(on-new-builder-panel obj))))
(create-gui-menu-item file :content "New CLOG Panel Popup Editor" :on-click 'on-new-builder-page)
@ -706,6 +706,7 @@ clog-builder window.")
(setf *open-external-source-in-popup* nil)
(setf *open-panels-as-popups* nil)
(setf *open-external-panels-in-popup* nil)
(setf *open-external-panels-always* nil)
(setf *open-external* nil)
(handler-case
(uiop:run-program (list "./clogframe"