- [GUI] added a better icon for search frame closing button.

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)

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*

src/package.lisp

@@ -3336,7 +3336,8 @@
    :*star-yellow*
    :*star-blue*
    :*arrow-up*
-   :*arrow-down*))
+   :*arrow-down*
+   :*cross*))
 
 (defpackage :validation
   (:use