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

style issues

Browse source
This commit is contained in:
David Botton 2021-02-15 09:15:11 -05:00
parent 68a4310f9d
commit 37e17177e5
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
clog-gui.lisp
View file

@ -180,10 +180,11 @@ clog-body."))
(:documentation "Drop down containing windows. Selecting a window (:documentation "Drop down containing windows. Selecting a window
will maximize it on top.")) will maximize it on top."))
(defgeneric create-gui-menu-window-select (clog-gui-menu-drop-down (defgeneric create-gui-menu-window-select (clog-obj
&key class &key class
html-id) html-id)
(:documentation "Attached a menu item to a CLOG-GUI-MENU-DROP-DOWN")) (:documentation "Attached a clog-select as a menu item that auto updates
with open windows and maximizes them."))
(defmethod create-gui-menu-window-select (defmethod create-gui-menu-window-select
((obj clog-obj) ((obj clog-obj)

1
tutorial/22-tutorial.lisp
View file

@ -69,7 +69,6 @@
(help (create-gui-menu-drop-down menu :content "Help")) (help (create-gui-menu-drop-down menu :content "Help"))
(tmp (create-gui-menu-item help :content "About" :on-click #'on-help-about)) (tmp (create-gui-menu-item help :content "About" :on-click #'on-help-about))
(tmp (create-gui-menu-full-screen menu)))) (tmp (create-gui-menu-full-screen menu))))
(run body)) (run body))
(defun start-tutorial () (defun start-tutorial ()