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

tab adjust

Browse source
This commit is contained in:
David Botton 2024-04-17 12:25:38 -04:00
parent fd2afcefd9
commit 1faedda116
5 changed files with 286 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

14
tools/clog-builder.lisp
View file

@ -308,6 +308,10 @@ clog-builder window.")
(defun on-new-builder (body)
"Launch instance of the CLOG Builder"
(set-html-on-close body "Connection Lost")
(indentify:load-templates +common-lisp-templates+
+asdf-templates+
+uiop-templates+
+alexandria-templates+)
(let ((app (make-instance 'builder-app-data))
(*menu-bar-class* *builder-menu-bar-class*)
(*menu-bar-drop-down-class* *builder-menu-bar-drop-down-class*)
@ -353,16 +357,16 @@ clog-builder window.")
(declare (ignore obj))
(setf *open-external* (not *open-external*))
(setf (text-value exter) (exter-text)))))
(create-gui-menu-item file :content "New CLOG Panel Editor" :on-click
(lambda (obj)
(if *open-external*
(on-new-builder-panel-ext obj)
(on-new-builder-panel obj))))
(create-gui-menu-item file :content "New Source Editor" :on-click
(lambda (obj)
(if *open-external*
(on-open-file-ext obj)
(on-open-file obj))))
(create-gui-menu-item file :content "New CLOG Panel Editor" :on-click
(lambda (obj)
(if *open-external*
(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)
(create-gui-menu-item file :content "New HTML Panel Popup Editor" :on-click 'on-new-builder-basic-page)
(create-gui-menu-item file :content "New Custom Boot Panel External Editor" :on-click 'on-new-builder-custom-page))