This commit is contained in:
David Botton 2021-02-17 18:31:05 -05:00
parent 6c90da78f9
commit 5235829c6a
2 changed files with 12 additions and 12 deletions

View file

@ -36,8 +36,8 @@
(add-class body "w3-blue-grey")
(let* ((menu (create-gui-menu-bar body))
(tmp (create-gui-menu-icon menu :on-click #'on-help-about))
(file (create-gui-menu-drop-down menu :content "File"))
(tmp (create-gui-menu-drop-down menu :content "Open Database Connection"))
(file (create-gui-menu-drop-down menu :content "Database"))
(tmp (create-gui-menu-drop-down menu :content "Open Connection" :on-click #'on-db-open))
(win (create-gui-menu-drop-down menu :content "Window"))
(tmp (create-gui-menu-item win :content "Maximize All" :on-click #'maximize-all-windows))
(tmp (create-gui-menu-item win :content "Normalize All" :on-click #'normalize-all-windows))