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

add w3css and bootstrap manuals to menu

Browse source
This commit is contained in:
David Botton 2022-01-31 21:12:34 -05:00
parent 03213a1154
commit b9a6e1f970
1 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

14
tools/clog-builder.lisp
View file

@ -1292,10 +1292,6 @@ of controls and double click to select control."
(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"
(set-html-on-close body "Connection Lost")
@ -1327,7 +1323,15 @@ of controls and double click to select control."
(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 "CLOG Manual" :on-click
(lambda (obj)
(open-window (window body) "https://rabbibotton.github.io/clog/clog-manual.html")))
(create-gui-menu-item help :content "W3.CSS Manual" :on-click
(lambda (obj)
(open-window (window body) "https://www.w3schools.com/w3css/")))
(create-gui-menu-item help :content "Bootstrap 5.1 Manual" :on-click
(lambda (obj)
(open-window (window body) "https://getbootstrap.com/docs/5.1/getting-started/introduction/")))
(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)