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

- [GUI] set state of the certificates toolbar button, not only the image label in: 'set-certificate-button-(active|inactive).

This commit is contained in:
cage 2024-02-16 14:26:28 +01:00
parent 910a502ad2
commit d097d4d1d0
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1255,9 +1255,11 @@ local file paths."
(set-toolbar-button-image main-window 'certificate-button image))
(defun set-certificate-button-active (main-window)
(gui:configure (certificate-button (tool-bar main-window)) :state :normal)
(set-certificate-button-image main-window icons:*profile*))
(defun set-certificate-button-inactive (main-window)
(gui:configure (certificate-button (tool-bar main-window)) :state :disabled)
(set-certificate-button-image main-window icons:*profile-disabled*))
(defun toggle-bookmark-iri-clsr (main-window)
@ -1846,6 +1848,7 @@ local file paths."
(initialize-keybindings main-frame (gui:inner-text (gemtext-widget main-frame)))
(initialize-keybindings main-frame (gui:root-toplevel))
(gui-goodies:gui-resize-grid-all gui-goodies:*toplevel*)
(set-certificate-button-inactive main-frame)
(gui:wait-complete-redraw)
(when (string-not-empty-p starting-iri)
(handler-case