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

Add clog manual to builder

Browse source
This commit is contained in:
David Botton 2022-01-28 14:24:49 -05:00
parent ff69a7a67d
commit 900f5e28ce
4 changed files with 10 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tools/clog-builder.lisp
View file

@ -1151,6 +1151,9 @@ z.html()"
(setf (visiblep about) t)
(set-on-window-can-size about (lambda (obj)
(declare (ignore obj))()))))
(defun on-help-open-manual (obj)
(let* ((body (connection-data-item obj "clog-body")))
(open-window (window body) "https://rabbibotton.github.io/clog/clog-manual.html")))
(defun on-new-builder (body)
"Launch instance of the CLOG Builder"
@ -1180,6 +1183,7 @@ z.html()"
(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-window-select win)
(create-gui-menu-item help :content "CLOG Manual" :on-click #'on-help-open-manual)
(create-gui-menu-item help :content "About" :on-click #'on-help-about-builder)
(create-gui-menu-full-screen menu))
(on-show-control-pallete-win body)