From 2d3ef5a362536178dbaaa38be84c1bbbda51d0e9 Mon Sep 17 00:00:00 2001
From: David Botton <david@botton.com>
Date: Fri, 19 Feb 2021 00:57:24 -0500
Subject: [PATCH] doc update

---
 doc/clog-manual.html | 19 ++++++++++++++++++-
 source/clog-gui.lisp |  3 +--
 2 files changed, 19 insertions(+), 3 deletions(-)

diff --git a/doc/clog-manual.html b/doc/clog-manual.html
index fc57ee8..1f0b093 100644
--- a/doc/clog-manual.html
+++ b/doc/clog-manual.html
@@ -4520,7 +4520,8 @@ clog-body.</p></li>
 <li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-GUI-3ACREATE-GUI-MENU-WINDOW-SELECT-20GENERIC-FUNCTION-29" >CREATE-GUI-MENU-WINDOW-SELECT</a></span></span> <span class="locative-args">CLOG-OBJ &amp;KEY CLASS HTML-ID</span></span></p>
 
 <p>Attached a clog-select as a menu item that auto updates
-with open windows and maximizes them. Only one instance allowed.</p></li>
+with open windows and maximizes them unless is a keep-on-top window or
+on-window-can-maximize returns nil. Only one instance allowed.</p></li>
 </ul>
 
 <p><a id='x-28CLOG-GUI-3ACREATE-GUI-MENU-FULL-SCREEN-20GENERIC-FUNCTION-29'></a></p>
@@ -4751,6 +4752,22 @@ interactions. Use window-end-modal to undo.</p></li>
 <p>Set the on-window-close <code>HANDLER</code></p></li>
 </ul>
 
+<p><a id='x-28CLOG-GUI-3ASET-ON-WINDOW-CAN-MAXIMIZE-20GENERIC-FUNCTION-29'></a></p>
+
+<ul>
+<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-GUI-3ASET-ON-WINDOW-CAN-MAXIMIZE-20GENERIC-FUNCTION-29" >SET-ON-WINDOW-CAN-MAXIMIZE</a></span></span> <span class="locative-args">CLOG-GUI-WINDOW HANDLER</span></span></p>
+
+<p>Set the on-window-can-maximize <code>HANDLER</code></p></li>
+</ul>
+
+<p><a id='x-28CLOG-GUI-3ASET-ON-WINDOW-CAN-NORMALIZE-20GENERIC-FUNCTION-29'></a></p>
+
+<ul>
+<li><p><span class=reference-bullet><span class=reference><span class="locative-type">[generic-function]</span> <span class="reference-object"><a href="#x-28CLOG-GUI-3ASET-ON-WINDOW-CAN-NORMALIZE-20GENERIC-FUNCTION-29" >SET-ON-WINDOW-CAN-NORMALIZE</a></span></span> <span class="locative-args">CLOG-GUI-WINDOW HANDLER</span></span></p>
+
+<p>Set the on-window-can-normalize <code>HANDLER</code></p></li>
+</ul>
+
 <p><a id='x-28CLOG-GUI-3ASET-ON-WINDOW-CAN-MOVE-20GENERIC-FUNCTION-29'></a></p>
 
 <ul>
diff --git a/source/clog-gui.lisp b/source/clog-gui.lisp
index 5c420a8..40e6f6a 100644
--- a/source/clog-gui.lisp
+++ b/source/clog-gui.lisp
@@ -1317,7 +1317,7 @@ machine, upon close ON-FILE-NAME called with filename or nil if failure."
 				  :width           width
 				  :height          height
 				  :client-movement client-movement
-				  :html-id         nil))
+				  :html-id         html-id))
 	 (box    (create-div (window-content win) :class "w3-panel"))
 	 (form   (create-form box))
 	 (dirs   (create-select form))
@@ -1393,7 +1393,6 @@ machine, upon close ON-FILE-NAME called with filename or nil if failure."
 		  :one-time t)
     (set-on-click ok (lambda (obj)
 		       (declare (ignore obj))
-		       (setf (disabledp obj) t)
 		       (set-on-window-close win nil)
 		       (when modal
 			 (window-end-modal win))