cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- [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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/gui/client/main-window.lisp
View File

@ -236,7 +236,8 @@
:aborting-function :aborting-function
#'aborting-function #'aborting-function
:ignore-certificate-expiration :ignore-certificate-expiration
ignore-certificate-expiration))))) ignore-certificate-expiration))
:name "stream thread")))
(setf (fetching-thread stream-wrapper) stream-thread) (setf (fetching-thread stream-wrapper) stream-thread)
stream-wrapper))))) stream-wrapper)))))
@ -1170,6 +1171,12 @@ local file paths."
((or (gemini-parser:gemini-iri-p actual-iri) ((or (gemini-parser:gemini-iri-p actual-iri)
needs-proxy) needs-proxy)
(let ((stream-frame (stream-frame main-window))) (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::refresh-all-streams
(client-stream-frame::table stream-frame)) (client-stream-frame::table stream-frame))
(start-stream-iri (iri-ensure-path actual-iri) (start-stream-iri (iri-ensure-path actual-iri)

3
src/gui/client/program-events.lisp
View File

@ -25,7 +25,8 @@
(make-thread (lambda () (make-thread (lambda ()
(let ((gui:*wish* gui-goodies:*gui-server*)) (let ((gui:*wish* gui-goodies:*gui-server*))
(loop while (events-loop-running-p) do (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) (defmacro with-enqueue-request ((method-name id &rest args) &body on-error)
`(ev:with-enqueued-process-and-unblock () `(ev:with-enqueued-process-and-unblock ()

3
src/gui/client/stream-frame.lisp
View File

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