From 37e17177e5c8302468fe1d3ab8d2c657c25bdf6e Mon Sep 17 00:00:00 2001 From: David Botton Date: Mon, 15 Feb 2021 09:15:11 -0500 Subject: [PATCH] style issues --- clog-gui.lisp | 5 +++-- tutorial/22-tutorial.lisp | 1 - 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/clog-gui.lisp b/clog-gui.lisp index 2c14236..c8b81e2 100644 --- a/clog-gui.lisp +++ b/clog-gui.lisp @@ -180,10 +180,11 @@ clog-body.")) (:documentation "Drop down containing windows. Selecting a window 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 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 ((obj clog-obj) diff --git a/tutorial/22-tutorial.lisp b/tutorial/22-tutorial.lisp index 0e7c5b1..82e01f7 100644 --- a/tutorial/22-tutorial.lisp +++ b/tutorial/22-tutorial.lisp @@ -69,7 +69,6 @@ (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-full-screen menu)))) - (run body)) (defun start-tutorial ()