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

improved popup

Browse source
This commit is contained in:
David Botton 2024-04-09 22:19:15 -04:00
parent 9131bfa92f
commit a5544de767
1 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
source/clog-window.lisp
View file

@ -652,14 +652,19 @@ obj of the new window on the new connection or nil if failed within :WAIT-TIMEOU
(setf (gethash sync-key *clog-popup-sync-hash*) sem)
(bordeaux-threads:wait-on-semaphore sem :timeout wait-timeout)
(setf sem (gethash sync-key *clog-popup-sync-hash*))
(remhash sync-key *clog-popup-sync-hash*)
(if (typep sem 'clog-obj)
(values sem new-win)
(progn
(setf (connection-data-item sem "clog-popup") new-win)
(values sem new-win))
nil)))
(defun clog-popup-openned (obj sync-key)
"Used to notify open-clog-popup the new popup window is ready for custom
clog-popup handlers."
(let ((sem (gethash sync-key *clog-popup-sync-hash*)))
(when sem
(cond (sem
(setf (gethash sync-key *clog-popup-sync-hash*) (connection-body obj))
(bordeaux-threads:signal-semaphore sem))))
(bordeaux-threads:signal-semaphore sem))
(t
(create-div obj :content "Invalid Sync")))))