mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-07 03:00:49 -08:00
Code Issues Projects Releases Wiki Activity

doc update

Browse source
This commit is contained in:
David Botton 2021-02-19 00:57:24 -05:00
parent d7dec03f6c
commit 2d3ef5a362
2 changed files with 19 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

19
doc/clog-manual.html
View file

@ -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> <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 <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> </ul>
<p><a id='x-28CLOG-GUI-3ACREATE-GUI-MENU-FULL-SCREEN-20GENERIC-FUNCTION-29'></a></p> <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> <p>Set the on-window-close <code>HANDLER</code></p></li>
</ul> </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> <p><a id='x-28CLOG-GUI-3ASET-ON-WINDOW-CAN-MOVE-20GENERIC-FUNCTION-29'></a></p>
<ul> <ul>

3
source/clog-gui.lisp
View file

@ -1317,7 +1317,7 @@ machine, upon close ON-FILE-NAME called with filename or nil if failure."
:width width :width width
:height height :height height
:client-movement client-movement :client-movement client-movement
:html-id nil)) :html-id html-id))
(box (create-div (window-content win) :class "w3-panel")) (box (create-div (window-content win) :class "w3-panel"))
(form (create-form box)) (form (create-form box))
(dirs (create-select form)) (dirs (create-select form))
@ -1393,7 +1393,6 @@ machine, upon close ON-FILE-NAME called with filename or nil if failure."
:one-time t) :one-time t)
(set-on-click ok (lambda (obj) (set-on-click ok (lambda (obj)
(declare (ignore obj)) (declare (ignore obj))
(setf (disabledp obj) t)
(set-on-window-close win nil) (set-on-window-close win nil)
(when modal (when modal
(window-end-modal win)) (window-end-modal win))