From d647465c1ef491456c24613025500f38020ea698 Mon Sep 17 00:00:00 2001 From: cage Date: Thu, 14 Sep 2023 17:13:22 +0200 Subject: [PATCH] - ensured decoding of the icons is made from TK to preserve alpha channel information. --- src/gui/client/icons.lisp | 45 ++++++++++++++++++++------------------- 1 file changed, 23 insertions(+), 22 deletions(-) diff --git a/src/gui/client/icons.lisp b/src/gui/client/icons.lisp index 376c34e..980bd26 100644 --- a/src/gui/client/icons.lisp +++ b/src/gui/client/icons.lisp @@ -101,25 +101,26 @@ (client-configuration:config-icons-scaling)))))) (defun load-icons () - (setf *search* (load-icon +search+)) - (setf *back* (load-icon +back+)) - (setf *open-iri* (load-icon +go+)) - (setf *open-tour* (load-icon +open-tour+)) - (setf *refresh* (load-icon +refresh+)) - (setf *up* (load-icon +up+)) - (setf *document-delete* (load-icon +document-delete+)) - (setf *document-add* (load-icon +document-add+)) - (setf *document-accept* (load-icon +document-accept+)) - (setf *document-edit* (load-icon +document-edit+)) - (setf *folder* (load-icon +folder+)) - (setf *star-yellow* (load-icon +star-yellow+)) - (setf *star-blue* (load-icon +star-blue+)) - (setf *arrow-up* (load-icon +arrow-up+)) - (setf *arrow-down* (load-icon +arrow-down+)) - (setf *cross* (load-icon +cross+)) - (setf *bus-go* (load-icon +bus-go+)) - (setf *dice* (load-icon +dice+)) - (setf *gemlog-subscribe* (load-icon +gemlog-subscribe+)) - (setf *gemlog-unsubscribe* (load-icon +gemlog-unsubscribe+)) - (setf *inline-images* (load-icon +inline-images+)) - (setf *text* (load-icon +text+))) + (let ((nodgui:*use-tk-for-decoding-png* t)) + (setf *search* (load-icon +search+)) + (setf *back* (load-icon +back+)) + (setf *open-iri* (load-icon +go+)) + (setf *open-tour* (load-icon +open-tour+)) + (setf *refresh* (load-icon +refresh+)) + (setf *up* (load-icon +up+)) + (setf *document-delete* (load-icon +document-delete+)) + (setf *document-add* (load-icon +document-add+)) + (setf *document-accept* (load-icon +document-accept+)) + (setf *document-edit* (load-icon +document-edit+)) + (setf *folder* (load-icon +folder+)) + (setf *star-yellow* (load-icon +star-yellow+)) + (setf *star-blue* (load-icon +star-blue+)) + (setf *arrow-up* (load-icon +arrow-up+)) + (setf *arrow-down* (load-icon +arrow-down+)) + (setf *cross* (load-icon +cross+)) + (setf *bus-go* (load-icon +bus-go+)) + (setf *dice* (load-icon +dice+)) + (setf *gemlog-subscribe* (load-icon +gemlog-subscribe+)) + (setf *gemlog-unsubscribe* (load-icon +gemlog-unsubscribe+)) + (setf *inline-images* (load-icon +inline-images+)) + (setf *text* (load-icon +text+))))