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

hide show all panel related windows

Browse source
This commit is contained in:
David Botton 2024-06-28 17:12:54 -04:00
parent eac63c2255
commit 787f34572f
1 changed files with 32 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

32
tools/clog-builder.lisp
View file

@ -320,6 +320,30 @@ clog-builder window.")
:title-class "w3-green w3-animate-top"
:text results))))
(defun hide-panel-windows (app)
(when (control-events-win app)
(setf (hiddenp (control-events-win app)) t))
(when (control-js-events-win app)
(setf (hiddenp (control-js-events-win app)) t))
(when (control-ps-events-win app)
(setf (hiddenp (control-ps-events-win app)) t))
(when (controls-win app)
(setf (hiddenp (controls-win app)) t))
(when (control-properties-win app)
(setf (hiddenp (control-properties-win app)) t)))
(defun show-panel-windows (app)
(when (control-events-win app)
(setf (hiddenp (control-events-win app)) nil))
(when (control-js-events-win app)
(setf (hiddenp (control-js-events-win app)) nil))
(when (control-ps-events-win app)
(setf (hiddenp (control-ps-events-win app)) nil))
(when (controls-win app)
(setf (hiddenp (controls-win app)) nil))
(when (control-properties-win app)
(setf (hiddenp (control-properties-win app)) nil)))
(defun on-open-file-window (body)
(on-new-builder body))
@ -477,6 +501,14 @@ clog-builder window.")
(window-normalize (current-window obj)))))
(create-gui-menu-item win :content "Maximize All" :on-click #'maximize-all-windows)
(create-gui-menu-item win :content "Normalize All" :on-click #'normalize-all-windows)
(create-gui-menu-item win :content "Hide Panel Editor Panels" :on-click
(lambda (obj)
(declare (ignore obj))
(hide-panel-windows app)))
(create-gui-menu-item win :content "Show Panel Editor Panels" :on-click
(lambda (obj)
(declare (ignore obj))
(show-panel-windows app)))
;; Menu -> Help
(create-gui-menu-item help :content "CLOG Manual" :on-click
(lambda (obj)