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

custom boot files restored to builder

Browse source
This commit is contained in:
David Botton 2024-03-24 15:42:23 -04:00
parent 24895b184c
commit 06fdabf759
4 changed files with 34 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

17
tools/clog-builder.lisp
View file

@ -345,17 +345,18 @@ clog-builder window.")
(help (create-gui-menu-drop-down menu :content "Help")))
(declare (ignore icon))
(add-class menu "w3-small")
(create-gui-menu-item file :content "New CLOG Panel" :on-click 'on-new-builder-panel)
(create-gui-menu-item file :content "New CLOG Panel External Edit" :on-click 'on-new-builder-page)
(create-gui-menu-item file :content "New HTML Panel External Edit" :on-click 'on-new-builder-basic-page)
(create-gui-menu-item file :content "New Application Template" :on-click 'on-new-app-template)
(create-gui-menu-item src :content "Project Window" :on-click 'on-show-project)
(create-gui-menu-item src :content "Directory Window" :on-click 'on-dir-win)
(create-gui-menu-item src :content "New Source Editor" :on-click 'on-open-file)
(create-gui-menu-item src :content "New Source Editor in New Tab" :on-click
(create-gui-menu-item file :content "New CLOG Panel Editor" :on-click 'on-new-builder-panel)
(create-gui-menu-item file :content "New CLOG Panel Popup Editor" :on-click 'on-new-builder-page)
(create-gui-menu-item file :content "New HTML Panel Popup Editor" :on-click 'on-new-builder-basic-page)
(create-gui-menu-item file :content "New Custom Boot Panel External Editor" :on-click 'on-new-builder-custom-page)
(create-gui-menu-item file :content "New Source Editor" :on-click 'on-open-file)
(create-gui-menu-item file :content "New Source External Editor" :on-click
(lambda (obj)
(declare (ignore obj))
(open-window (window body) "/source-editor?open-file=%20")))
(create-gui-menu-item src :content "Project Window" :on-click 'on-show-project)
(create-gui-menu-item src :content "Directory Window" :on-click 'on-dir-win)
(create-gui-menu-item src :content "New Project Template" :on-click 'on-new-app-template)
(create-gui-menu-item src :content "New System Browser" :on-click 'on-new-sys-browser)
(create-gui-menu-item src :content "New ASDF System Browser" :on-click 'on-new-asdf-browser)
(create-gui-menu-item tools :content "List Callers" :on-click 'on-show-callers)