mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-07 03:00:49 -08:00
Code Issues Projects Releases Wiki Activity

Menu bars can be added to windows in clog-gui

Browse source
This commit is contained in:
David Botton 2024-03-20 11:58:23 -04:00
parent dfc8d60c2d
commit b63ecf2c26
2 changed files with 21 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
tutorial/22-tutorial.lisp
View file

@ -12,6 +12,17 @@
;; windows
(create-div (window-content win) :content n))))
(defun on-file-with-menu (obj)
(let ((win (create-gui-window obj :title "Window With Menu")))
(let* ((menu (create-gui-menu-bar (window-content win)))
(file (create-gui-menu-drop-down menu :content "Menu 1"))
(tmp (create-gui-menu-item file :content "Count" :on-click 'on-file-count))
(file (create-gui-menu-drop-down menu :content "Menu 2"))
(tmp (create-gui-menu-item file :content "Count" :on-click 'on-file-count)))
(declare (ignore tmp))
(add-class menu "w3-small")
(create-div (window-content win) :content "Some Text"))))
(defun on-file-browse (obj)
(let ((win (create-gui-window obj :title "Browse")))
(create-child (window-content win)
@ -155,6 +166,7 @@
(tmp (create-gui-menu-icon menu :on-click 'on-help-about))
(file (create-gui-menu-drop-down menu :content "File"))
(tmp (create-gui-menu-item file :content "Count" :on-click 'on-file-count))
(tmp (create-gui-menu-item file :content "Window With Menu" :on-click 'on-file-with-menu))
(tmp (create-gui-menu-item file :content "Browse" :on-click 'on-file-browse))
(tmp (create-gui-menu-item file :content "Drawing" :on-click 'on-file-drawing))
(tmp (create-gui-menu-item file :content "Movie" :on-click 'on-file-movies))