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

- [GUI] fixed test for discarding canceled stream lines left in the queue; 

- [GUI] setted the font for the rendered gemtext from the one choosen in the configuration file.
This commit is contained in:
cage 2023-03-11 14:24:51 +01:00
parent f882b1584f
commit 3a5ea0fac9
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -508,8 +508,8 @@
;; collecting events left on
;; the queue won't be actually
;; processed, just discarded
(when (and stopped-stream
(not (eq (status stopped-stream)
(when (not (and stopped-stream
(eq (status stopped-stream)
+stream-status-canceled+)))
(collect-ir-lines iri main-window lines)))
:status status)))
@ -589,9 +589,7 @@
:sticky :nswe
:ipadx +minimum-padding+
:ipady +minimum-padding+)
(gui-goodies:gui-resize-grid-all object)
))
(gui-goodies:gui-resize-grid-all object)))
(defclass main-frame (gui:frame)
((main-window
@ -636,7 +634,10 @@
(gemtext-widget gemtext-widget)) object
(setf tool-bar (make-instance 'tool-bar :master object))
(setf toc-frame (make-instance 'toc-frame :master object))
(setf gemtext-widget (make-instance 'gui:scrolled-text :master object :read-only t))
(setf gemtext-widget (make-instance 'gui:scrolled-text
:master object
:read-only t
:font (gui-conf:gemini-text-font-configuration)))
(gui:configure gemtext-widget :wrap :word)
(setf info-frame (make-instance 'gui:frame :master object :relief :sunken :borderwidth 1))
(setf info-text (make-instance 'gui:text :height 1 :wrap :none :master info-frame))