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

- [GUI] ensured pushing stream revive into the events queue.

This commit is contained in:
cage 2023-08-16 16:39:44 +02:00
parent aae67c4121
commit 312c18fae8
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -86,9 +86,10 @@
(selection (first selections)))
(let* ((url (gui:id selection))
(new-rows (all-rows)))
(client-main-window:set-address-bar-text gui-goodies:*main-frame* url)
(client-main-window::open-iri url gui-goodies:*main-frame* t)
(resync-rows stream-table new-rows))))))
(ev:with-enqueued-process-and-unblock ()
(client-main-window:set-address-bar-text gui-goodies:*main-frame* url)
(client-main-window::open-iri url gui-goodies:*main-frame* t)
(resync-rows stream-table new-rows)))))))
(defun init-frame (parent-frame)
(let* ((wrapper-frame (make-instance 'stream-frame :master parent-frame))