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

normalize and maximize all

Browse source
This commit is contained in:
David Botton 2021-02-15 16:47:42 -05:00
parent 9d14869f19
commit 89f0762ea1
1 changed files with 2 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
tutorial/22-tutorial.lisp
View file

@ -79,12 +79,8 @@
(tmp (create-gui-menu-item file :content "Movie" :on-click #'on-file-movies))
(tmp (create-gui-menu-item file :content "Pinned" :on-click #'on-file-pinned))
(win (create-gui-menu-drop-down menu :content "Window"))
(tmp (create-gui-menu-item win :content "Maximize All"
:on-click (lambda (obj)
(maximize-all-windows obj))))
(tmp (create-gui-menu-item win :content "Normalize All"
:on-click (lambda (obj)
(normalize-all-windows obj))))
(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))
(tmp (create-gui-menu-window-select win))
(help (create-gui-menu-drop-down menu :content "Help"))
(tmp (create-gui-menu-item help :content "About" :on-click #'on-help-about))