From 92cac487ff0391d11fb8518b3fef5a66c7680b4d Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Mon, 10 Apr 2023 18:37:27 +0200
Subject: [PATCH] - [GUI] added a better icon for search frame closing button.

---
 data/icons/fmw_cross.png         | Bin 0 -> 1049 bytes
 src/gui/client/icons.lisp        |   7 ++++++-
 src/gui/client/search-frame.lisp |   2 +-
 src/package.lisp                 |   3 ++-
 4 files changed, 9 insertions(+), 3 deletions(-)
 create mode 100644 data/icons/fmw_cross.png

diff --git a/data/icons/fmw_cross.png b/data/icons/fmw_cross.png
new file mode 100644
index 0000000000000000000000000000000000000000..4ee1253736b73693b282fff8b698b445756c0548
GIT binary patch
literal 1049
zcmV+!1m^pRP)<h;3K|Lk000e1NJLTq001BW001Be1^@s6b9#F80000PbVXQnQ*UN;
zcVTj606}DLVr3vnZDD6+Qe|Oed2z{QJOBU#yGcYrRCwB~S8GTVQ4~HquDY$QuY6#N
zVXl^sQZgh<%_xZ!!Xn8CDFcNBBMPD)`O6^bheUxzLJ$0rQIrK4WumF1h=`KU-8Hi)
zwQQALUH9Rx-8=5cK4$OTS-o&}=gyq-ecye|xn}_Qn@?v>>Iyb|4W2iTaM&PCXA5iV
z5aAKdYEbL@m7lo@tl?`9L<q;J*&Q2(9p*p2SqtI}-xDChM+lAx|5PW(glC2XOebHf
zgoQhmyr`QmSHa-zD#&c>_eEVJf!rVjN5lmsUAYdr+MC3oNy~4*P))Tf5gy?%sPBhw
zu9!?9V!Vj9^xzgGR$K*4<ggqpIevzHXgHY5+Whbg1R;w@0NsffFM*-{9(9p@iz{IG
z{#|Y+SV11d?n7OL$U2fRWHAV+J)yK5OwS)ufxJ(b!AM;#do45uk!Pds1hPLOZVGKh
z>^xrz=EkQ~K#kGD{`>ndR9~-xb1?d(&W@bhgupAJxCAWk8ek(DlV1d*^^cv%*Iq+c
zB6gf9255e@KK9&`F!rpTmz+<4vxveXU_Li_#BDj42V*Z9T#~yI;3Ojc#3>MWeG){z
zoN)vcuU`_$NdlZj94`Rx-gdXhO?$IJ@wSmlj+>Z(W3&dYCLFVwO(JeJ<ZEreNaVB`
zSj%v6M~{JIq)*Ti=o9vU^22-D*+E_cOdfwY7bN3D9&JK>Y!WD1nu#Jr#F6J50_hLs
zy52%vbQ~z#T3w0|@zn+C!LpgStSs=Gn%s~?v>34slpP(sBJ2ckb%8u%Kgj+~QGwMO
zE&CtrFQfWuw?u%d>x+{J#)&*V9sK8J(2i$_rVR{*$>~|v@HNdJV`6N_qg-r9o|XoI
zi}UE@Air+&5*es^df-CuSfOHJX|WTaiH+53iE$Vk`yqdWQ$-|CO@$z{o;sCtj4!AL
z2B54@kw2`_jp14bStL$Y@{|+^vKZ(XUJ_9C_p{3(<|-mEFH;kZ+9I+gA4IoitOATU
z>!Fdg%XcM1Ftb8QRLg4>5xWO)b)xz@2x^nr<r?B=*vEm~V3RQ?un2c?tQ8SBRYdam
zI0%tR?F7$ib)Zrx`N&<K9V8rTMI?{i4xzz;?1R7Rc~FgiqmhHVIF1Jtx9Irvz&p_N
z==*eIL4a?GWRnDROL`PE;V!uyPPbaqazMhIwZ(Dgbi^ZwLYBpSR3`dM^H4t;7qmh?
z&2S8kb-;;o{JJ7lM3L6#zug!)Zv~Dl9NAWzqj^S1MdZh&a?)|?#!L`#{tGYwR<u)K
T-b_ue00000NkvXXu0mjf?3~+x

literal 0
HcmV?d00001

diff --git a/src/gui/client/icons.lisp b/src/gui/client/icons.lisp
index 19f68bf..529af7c 100644
--- a/src/gui/client/icons.lisp
+++ b/src/gui/client/icons.lisp
@@ -32,6 +32,8 @@
 
 (a:define-constant +arrow-down+       "fmw_arrow-down"      :test #'string=)
 
+(a:define-constant +cross+            "fmw_cross"           :test #'string=)
+
 (defparameter *search*          nil)
 
 (defparameter *back*            nil)
@@ -62,6 +64,8 @@
 
 (defparameter *arrow-down*      nil)
 
+(defparameter *cross*           nil)
+
 (defun load-icon (filename)
   (let ((path (if (not (re:scan "(?i)png$" filename))
                   (res:get-data-file (fs:cat-parent-dir +icon-dir+
@@ -86,6 +90,7 @@
   (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 *arrow-down*      (load-icon +arrow-down+))
+  (setf *cross*           (load-icon +cross+)))
 
 (defparameter *arrow-down*      nil)
diff --git a/src/gui/client/search-frame.lisp b/src/gui/client/search-frame.lisp
index ea845bd..0be038c 100644
--- a/src/gui/client/search-frame.lisp
+++ b/src/gui/client/search-frame.lisp
@@ -31,7 +31,7 @@
          (case-sensitive-checkbox (make-instance 'gui:check-button
                                                  :master frame
                                                  :text   (_ "Case sensitive")))
-         (button-close            (make-instance 'gui:button :image icons:*document-delete*
+         (button-close            (make-instance 'gui:button :image icons:*cross*
                                                              :master frame)))
     (setf (entry frame)           (make-instance 'gui:entry :master frame))
     (setf (button-next frame)     (make-instance 'gui:button :image icons:*arrow-down*
diff --git a/src/package.lisp b/src/package.lisp
index ff4963d..f999c5b 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -3336,7 +3336,8 @@
    :*star-yellow*
    :*star-blue*
    :*arrow-up*
-   :*arrow-down*))
+   :*arrow-down*
+   :*cross*))
 
 (defpackage :validation
   (:use