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

demo waiting for response

Browse source
This commit is contained in:
David Botton 2021-02-21 10:52:20 -05:00
parent 59698297c5
commit 9bf04093e1
9 changed files with 76 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

8
source/clog-gui.lisp
View file

@ -828,12 +828,14 @@ on-window-resize-done at end of resize."))
;;;;;;;;;;;;;;;;;;
(defgeneric window-close (clog-gui-window)
(:documentation "Close CLOG-GUI-WINDOW. on-window-can-close is not called."))
(:documentation "Close CLOG-GUI-WINDOW. on-window-can-close is not called.
CLOG-GUI-WINDOW is removed from DOM but still present in the CLOG cache on
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))
(remove-from-dom (window-select-item obj))
(destroy (window-select-item obj))
(remove-from-dom obj)
(fire-on-window-change nil app)
(fire-on-window-close obj)))
@ -970,7 +972,7 @@ interactions. Use window-end-modal to undo."))
(defmethod window-end-modal ((obj clog-gui-window))
(let ((app (connection-data-item obj "clog-gui")))
(remove-from-dom (modal-background app))
(destroy (modal-background app))
(window-focus obj)))
;;;;;;;;;;;;;;;;;;;