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

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

13
source/clog-gui.lisp
View file

@ -399,17 +399,20 @@ in on-resize, on-full-screen-change and on-orientation-change events."))
(defclass clog-gui-menu-bar (clog-div)() (defclass clog-gui-menu-bar (clog-div)()
(:documentation "Menu bar")) (:documentation "Menu bar"))
(defgeneric create-gui-menu-bar (clog-obj &key class html-id) (defgeneric create-gui-menu-bar (clog-obj &key class html-id main-menu)
(:documentation "Attached a menu bar to a CLOG-OBJ in general a (:documentation "Attached a menu bar to a CLOG-OBJ in general a
clog-body.")) clog-body. If main-menu add as main menu bar."))
(defmethod create-gui-menu-bar ((obj clog-obj) (defmethod create-gui-menu-bar ((obj clog-obj)
&key (class "w3-bar w3-black w3-card-4") &key (class "w3-bar w3-black w3-card-4")
(html-id nil)) (html-id nil)
(let ((div (create-div obj :class class :html-id html-id)) (main-menu t))
(let* ((div (create-div obj :class class :html-id html-id))
(blank (create-a div))
(app (connection-data-item obj "clog-gui"))) (app (connection-data-item obj "clog-gui")))
(change-class div 'clog-gui-menu-bar) (change-class div 'clog-gui-menu-bar)
(setf (menu app) div) (when main-menu
(setf (menu app) div))
div)) div))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

12
tutorial/22-tutorial.lisp
View file

@ -12,6 +12,17 @@
;; windows ;; windows
(create-div (window-content win) :content n)))) (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) (defun on-file-browse (obj)
(let ((win (create-gui-window obj :title "Browse"))) (let ((win (create-gui-window obj :title "Browse")))
(create-child (window-content win) (create-child (window-content win)
@ -155,6 +166,7 @@
(tmp (create-gui-menu-icon menu :on-click 'on-help-about)) (tmp (create-gui-menu-icon menu :on-click 'on-help-about))
(file (create-gui-menu-drop-down menu :content "File")) (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 "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 "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 "Drawing" :on-click 'on-file-drawing))
(tmp (create-gui-menu-item file :content "Movie" :on-click 'on-file-movies)) (tmp (create-gui-menu-item file :content "Movie" :on-click 'on-file-movies))