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

Better support for sudden connection lost.

Browse source
This commit is contained in:
David Botton 2021-11-18 13:58:46 -05:00
parent 844afdf7f4
commit f6792ca0ed
7 changed files with 21 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

1
demos/01-demo.lisp
View file

@ -169,6 +169,7 @@
(sleep .1))))
(defun on-new-window (body)
(set-html-on-close body "Connection Lost")
(let ((app (make-instance 'app-data)))
(setf (connection-data-item body "app-data") app))
(display-splash body)

1
demos/02-demo.lisp
View file

@ -15,6 +15,7 @@
*global-list-box-hash*))
(defun on-new-window (body)
(set-html-on-close body "Connection Lost")
(load-css (html-document body) "/css/w3.css")
(setf (title (html-document body)) "CLOG Chat")

1
demos/03-demo.lisp
View file

@ -173,6 +173,7 @@
(declare (ignore obj))()))))
(defun on-new-window (body)
(set-html-on-close body "Connection Lost")
(let ((app (make-instance 'app-data)))
(setf (connection-data-item body "app-data") app))
(clog-gui-initialize body)

1
demos/04-demo.lisp
View file

@ -159,6 +159,7 @@
(id-me app)))))
(defun on-new-window (body)
(set-html-on-close body "Connection Lost")
;; Create an app-data object for every connection
(let ((app (make-instance 'app-data)))
(setf (connection-data-item body "app-data") app)