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

- [GUI] prevented gemtext widget to take the focus (tanks op!).

This commit is contained in:
cage 2023-05-20 21:39:39 +02:00
parent 14525c2f1b
commit 34407087ef
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1075,7 +1075,8 @@
#$<Enter>$ #$<Enter>$
(lambda (e) (lambda (e)
(declare (ignore e)) (declare (ignore e))
(gui:configure-mouse-pointer gemtext-widget (gui:find-cursor :xterm)))) (gui:configure-mouse-pointer gemtext-widget (gui:find-cursor :xterm))
(gui:force-focus (gui:root-toplevel))))
(setf (gui:command go-button) (open-iri-clsr main-window t)) (setf (gui:command go-button) (open-iri-clsr main-window t))
(setf (gui:command reload-button) (reload-iri-clsr main-window)) (setf (gui:command reload-button) (reload-iri-clsr main-window))
(setf (gui:command back-button) (back-iri-clsr main-window)) (setf (gui:command back-button) (back-iri-clsr main-window))
@ -1237,6 +1238,7 @@
:background (gui-conf:gemini-window-colors) :background (gui-conf:gemini-window-colors)
:selectbackground select-bg :selectbackground select-bg
:selectforeground select-fg :selectforeground select-fg
:takefocus (nodgui.utils:lisp-bool->tcl nil)
:padx padding-pixel :padx padding-pixel
:master gemini-paned-frame :master gemini-paned-frame
:read-only t :read-only t