From 89f0762ea19f34f1f77849cd8bb8b48faaea64b6 Mon Sep 17 00:00:00 2001 From: David Botton Date: Mon, 15 Feb 2021 16:47:42 -0500 Subject: [PATCH] normalize and maximize all --- tutorial/22-tutorial.lisp | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/tutorial/22-tutorial.lisp b/tutorial/22-tutorial.lisp index 049deda..b3dafc6 100644 --- a/tutorial/22-tutorial.lisp +++ b/tutorial/22-tutorial.lisp @@ -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))