diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp index fca5e04..07b5361 100644 --- a/tools/clog-builder.lisp +++ b/tools/clog-builder.lisp @@ -1331,7 +1331,9 @@ of controls and double click to select control."
CLOG
The Common Lisp Omnificent GUI
-

CLOG Builder
+

+ CLOG Builder +
(c) 2022 - David Botton

" :width 200 :height 215 @@ -1466,6 +1468,18 @@ create-div's" (lambda (obj) (declare (ignore obj)) (open-window (window body) "https://rabbibotton.github.io/clog/clog-manual.html"))) + (create-gui-menu-item help :content "Lisp in Y Minutes" :on-click + (lambda (obj) + (declare (ignore obj)) + (open-window (window body) "https://learnxinyminutes.com/docs/common-lisp/"))) + (create-gui-menu-item help :content "Simplified Reference" :on-click + (lambda (obj) + (declare (ignore obj)) + (open-window (window body) "https://jtra.cz/stuff/lisp/sclr/index.html"))) + (create-gui-menu-item help :content "Common Lisp Manual" :on-click + (lambda (obj) + (declare (ignore obj)) + (open-window (window body) "http://clhs.lisp.se/"))) (create-gui-menu-item help :content "W3.CSS Manual" :on-click (lambda (obj) (declare (ignore obj)) @@ -1474,7 +1488,7 @@ create-div's" (lambda (obj) (declare (ignore 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-item help :content "About CLOG Builder" :on-click #'on-help-about-builder) (create-gui-menu-full-screen menu)) (on-show-control-pallete-win body) (on-show-control-list-win body)