mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-15 06:50:20 -08:00
Code Issues Projects Releases Wiki Activity

clog-gui mix in

Browse source
This commit is contained in:
David Botton 2021-02-21 22:44:04 -05:00
parent 9bea142c58
commit 9276e279a1
2 changed files with 24 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
source/clog-gui.lisp
View file

@ -842,7 +842,8 @@ the browser."))
(defmethod window-close ((obj clog-gui-window))
(let ((app (connection-data-item obj "clog-gui")))
(remhash (format nil "~A" (html-id obj)) (windows app))
(destroy (window-select-item obj))
(when (window-select app)
(destroy (window-select-item obj)))
(remove-from-dom obj)
(fire-on-window-change nil app)
(fire-on-window-close obj)))
@ -1356,7 +1357,7 @@ Calls on-input with t if confirmed or nil if canceled."
(unless left
(setf (left win) (unit :px (- (/ (inner-width (window body)) 2.0)
(/ (width win) 2.0)))))
(setf (visible win) t)
(setf (visiblep win) t)
(when modal
(window-make-modal win))
(set-on-click cancel (lambda (obj)