From 5142af4da5701a6b987cd5c47a89b5f031bb540d Mon Sep 17 00:00:00 2001
From: David Botton <david@botton.com>
Date: Sat, 3 Feb 2024 22:51:19 -0500
Subject: [PATCH] Update date and comments

---
 source/clog-gui.lisp      | 17 +++++++++--------
 tutorial/22-tutorial.lisp |  4 ++--
 2 files changed, 11 insertions(+), 10 deletions(-)

diff --git a/source/clog-gui.lisp b/source/clog-gui.lisp
index 547bc17..82a4103 100644
--- a/source/clog-gui.lisp
+++ b/source/clog-gui.lisp
@@ -815,14 +815,15 @@ The on-window-change clog-obj received is the new window"))
                                           title-class
                                           html-id)
   (:documentation "Create a clog-gui-window. If client-movement is t then
-use jquery-ui to move/resize and will not work on mobile. When client-movement
-is t only on-window-move is fired once at start of drag and on-window-move-done
-at end of drag and on-window-resize at start of resize and
-on-window-resize-done at end of resize. If has-pinner a toggle wil appear on
-title bar to allow pinning the window in place, if keep-on-top t then when
-pinned also will keep-on-top. If had-pinned is nil and keep-on-top t then
-the window will be set to keep-on-top always. window-param is a general parameter
-for identifiying the window to use with window-to-top-by-param or window-by-param."))
+use jquery-ui to move/resize and will not work on mobile and touch events
+are limitted to clicks. When client-movement is t only on-window-move is fired
+once at start of drag and on-window-move-done at end of drag and
+on-window-resize at start of resize and on-window-resize-done at end of resize.
+If has-pinner a toggle wil appear on title bar to allow pinning the window in
+place, if keep-on-top t then when pinned also will keep-on-top. If had-pinned
+is nil and keep-on-top t then the window will be set to keep-on-top always.
+window-param is a general parameter for identifiying the window to use with
+window-to-top-by-param or window-by-param."))
 
 (defmethod create-gui-window ((obj clog-obj) &key (title "New Window")
                                                (content "")
diff --git a/tutorial/22-tutorial.lisp b/tutorial/22-tutorial.lisp
index 2683039..a4ee7cd 100644
--- a/tutorial/22-tutorial.lisp
+++ b/tutorial/22-tutorial.lisp
@@ -109,7 +109,7 @@
                                          <center>CLOG</center>
                                          <center>The Common Lisp Omnificent GUI</center></div>
                                          <div><p><center>Tutorial 22</center>
-                                         <center>(c) 2021 - David Botton</center></p></div>"
+                                         <center>(c) 2024 - David Botton</center></p></div>"
                                    :hidden  t
                                    :width   200
                                    :height  215)))
@@ -129,7 +129,7 @@
 (defun on-new-window (body)
   (setf (title (html-document body)) "Tutorial 22")
   ;; For web oriented apps consider using the :client-movement option.
-  ;; See clog-gui-initialize documentation.
+  ;; See clog-gui-window documentation.
   (clog-gui-initialize body)
   (add-class body "w3-cyan")
   (let* ((menu  (create-gui-menu-bar body))