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 14:47:44 -05:00
parent e7caf5085b
commit 71e04323d2
3 changed files with 112 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tutorial/22-tutorial.lisp
View file

@ -65,6 +65,12 @@
(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))
(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-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))