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

Menu option to use external tabs or not

Browse source
This commit is contained in:
David Botton 2024-03-24 21:31:53 -04:00
parent 0f78371620
commit 3f6812cdff
3 changed files with 47 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

2
tools/clog-builder-files.lisp
View file

@ -36,7 +36,7 @@
(if open-file
(format nil "/source-editor?open-file=~A"
open-file)
"/source-editor")
"/source-editor?open-file=%20")
:specs (if (or popup *open-external-in-popup*)
"width=800,height=600"
"")

17
tools/clog-builder-panels.lisp
View file

@ -483,7 +483,10 @@ not a temporarily attached one when using select-control."
open-file (if open-ext
(format nil "&open-ext=~A" open-ext)
""))
"/source-editor")
(format nil "/panel-editor?open-panel=%20~A"
(if open-ext
(format nil "&open-ext=~A" open-ext)
"")))
:specs (if (or popup *open-external-panels-in-popup*)
"width=1280,height=700"
"")
@ -957,14 +960,20 @@ not a temporarily attached one when using select-control."
(defun on-new-builder-page (obj &key custom-boot url-launch)
"Open new page"
(on-new-builder-panel obj :open-ext t))
(if *open-external*
(on-new-builder-panel-ext obj :open-ext t)
(on-new-builder-panel obj :open-ext t)))
(defun on-new-builder-basic-page (obj)
"Menu item to open new basic HTML page"
(on-new-builder-panel obj :open-ext :custom))
(if *open-external*
(on-new-builder-panel-ext obj :open-ext :custom)
(on-new-builder-panel obj :open-ext :custom)))
(defun on-new-builder-custom-page (obj)
(input-dialog obj "Boot file Name?"
(lambda (file)
(when file
(on-new-builder-panel obj :open-ext file)))))
(if *open-external*
(on-new-builder-panel-ext obj :open-ext file)
(on-new-builder-panel obj :open-ext file))))))

45
tools/clog-builder.lisp
View file

@ -345,15 +345,28 @@ clog-builder window.")
(help (create-gui-menu-drop-down menu :content "Help")))
(declare (ignore icon))
(add-class menu "w3-small")
(create-gui-menu-item file :content "New CLOG Panel Editor" :on-click 'on-new-builder-panel)
(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)
(create-gui-menu-item file :content "New Source Editor" :on-click 'on-open-file)
(create-gui-menu-item file :content "New Source External Editor" :on-click
(lambda (obj)
(declare (ignore obj))
(open-window (window body) "/source-editor?open-file=%20")))
(let ((exter (create-button file :content "-" :class "w3-input")))
(flet ((exter-text ()
(if *open-external*
"open external tab"
"open this tab")))
(setf (text-value exter) (exter-text))
(set-on-click exter (lambda (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 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))
(create-gui-menu-item src :content "Project Window" :on-click 'on-show-project)
(create-gui-menu-item src :content "Directory Window" :on-click 'on-dir-win)
(create-gui-menu-item src :content "New Project Template" :on-click 'on-new-app-template)
@ -419,11 +432,19 @@ clog-builder window.")
(on-show-copy-history-win body)
(cond
(open-panel
(setf (title (html-document body)) open-panel)
(if (equal open-panel " ")
(setf open-panel nil)
(setf (title (html-document body)) open-panel))
(cond ((equalp open-ext "t")
(setf open-ext t))
((equalp open-ext "custom")
(setf open-ext :custom)))
(on-new-builder-panel body :open-file open-panel :open-ext open-ext))
(open-file
(setf (title (html-document body)) open-file)
(on-open-file body :open-file open-file :maximized t))
(if (equal open-file " ")
(setf open-file nil)
(setf (title (html-document body)) open-file))
(on-open-file body :open-file open-file :maximized t))
(*start-dir*
(on-dir-win body :dir *start-dir* :top 60 :left 232))
(t