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

Fix up help menu

Browse source
This commit is contained in:
David Botton 2022-02-06 19:45:49 -05:00
parent 8344345736
commit 8a3cf2ab71
1 changed files with 16 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

18
tools/clog-builder.lisp
View file

@ -1331,7 +1331,9 @@ of controls and double click to select control."
<center><img src='/img/clogwicon.png'></center> <center><img src='/img/clogwicon.png'></center>
<center>CLOG</center> <center>CLOG</center>
<center>The Common Lisp Omnificent GUI</center></div> <center>The Common Lisp Omnificent GUI</center></div>
<div><p><center>CLOG Builder</center> <div><p><center>
<a target=_blank href='https://github.com/sponsors/rabbibotton'>CLOG Builder</a>
</center>
<center>(c) 2022 - David Botton</center></p></div>" <center>(c) 2022 - David Botton</center></p></div>"
:width 200 :width 200
:height 215 :height 215
@ -1466,6 +1468,18 @@ create-div's"
(lambda (obj) (lambda (obj)
(declare (ignore obj)) (declare (ignore obj))
(open-window (window body) "https://rabbibotton.github.io/clog/clog-manual.html"))) (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 (create-gui-menu-item help :content "W3.CSS Manual" :on-click
(lambda (obj) (lambda (obj)
(declare (ignore obj)) (declare (ignore obj))
@ -1474,7 +1488,7 @@ create-div's"
(lambda (obj) (lambda (obj)
(declare (ignore obj)) (declare (ignore obj))
(open-window (window body) "https://getbootstrap.com/docs/5.1/getting-started/introduction/"))) (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)) (create-gui-menu-full-screen menu))
(on-show-control-pallete-win body) (on-show-control-pallete-win body)
(on-show-control-list-win body) (on-show-control-list-win body)