1
0
Fork 0

- [GUI] added comment about race condition;

- [GUI] adde name to each thread spawned.
This commit is contained in:
cage 2024-09-26 14:59:46 +02:00
parent 0a64d51a5d
commit 0e21344259
3 changed files with 12 additions and 3 deletions

View File

@ -236,7 +236,8 @@
:aborting-function
#'aborting-function
:ignore-certificate-expiration
ignore-certificate-expiration)))))
ignore-certificate-expiration))
:name "stream thread")))
(setf (fetching-thread stream-wrapper) stream-thread)
stream-wrapper)))))
@ -1170,6 +1171,12 @@ local file paths."
((or (gemini-parser:gemini-iri-p actual-iri)
needs-proxy)
(let ((stream-frame (stream-frame main-window)))
;; note: keeps this call before 'start-stream-iri', the
;; latter will recursively call 'open-iri' (this
;; function) if a redirect is met, and the procedures to
;; delete and repopulate stream frames gets interleaved
;; in nodgui, I have to investigate
;; why.
(client-stream-frame::refresh-all-streams
(client-stream-frame::table stream-frame))
(start-stream-iri (iri-ensure-path actual-iri)

View File

@ -25,7 +25,8 @@
(make-thread (lambda ()
(let ((gui:*wish* gui-goodies:*gui-server*))
(loop while (events-loop-running-p) do
(ev:dispatch-program-events-or-wait)))))))
(ev:dispatch-program-events-or-wait))))
:name "GUI events loop")))
(defmacro with-enqueue-request ((method-name id &rest args) &body on-error)
`(ev:with-enqueued-process-and-unblock ()

View File

@ -25,7 +25,8 @@
:text iri
:column-values
(list stream-status
(to-s (getf row :octet-count)))
(to-s (getf row
:octet-count)))
:index gui:+treeview-last-index+)))
(gui:treeview-insert-item tree :item tree-row)))
(gui:treeview-refit-columns-width (gui-goodies:tree stream-table))