mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -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

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
: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))