- [GUI] added a few icons.

LICENSES.org

@@ -545,8 +545,8 @@
     use or other dealings in these Data Files or Software without prior
     written authorization of the copyright holder.
 
-- data/icons/search.png
+- data/icons/fmw_*.png
-  https://commons.wikimedia.org/wiki/File:Farm-Fresh_magnifier.png
   FatCow Web Hosting
   [CC BY 3.0 us (https://creativecommons.org/licenses/by/3.0/us/deed.en)],
   via Wikimedia Commons
+  https://commons.wikimedia.org/wiki/Farm-Fresh_web_icons

src/gui/client/icons.lisp

@@ -1,10 +1,26 @@
 (in-package :icons)
 
-(a:define-constant +icon-dir+                                 "/icons/" :test #'string=)
+(a:define-constant +icon-dir+    "/icons/"       :test #'string=)
 
-(a:define-constant +icon-search+                               "search" :test #'string=)
+(a:define-constant +search+      "fmw_search"    :test #'string=)
 
-(defparameter *icon-search*                nil)
+(a:define-constant +back+        "fmw_back"      :test #'string=)
+
+(a:define-constant +go+          "fmw_go"        :test #'string=)
+
+(a:define-constant +open-tour+   "fmw_open_tour" :test #'string=)
+
+(a:define-constant +refresh+     "fmw_refresh"   :test #'string=)
+
+(defparameter *icon-search*      nil)
+
+(defparameter *icon-back*        nil)
+
+(defparameter *icon-go*          nil)
+
+(defparameter *icon-open-tour*   nil)
+
+(defparameter *icon-refresh*     nil)
 
 (defun load-icon (filename)
   (let ((path (if (not (re:scan "(?i)png$" filename))
@@ -16,4 +32,8 @@
         (gui:make-image data)))))
 
 (defun load-icons ()
-  (setf *icon-search* (load-icon +icon-search+)))
+  (setf *icon-search* (load-icon +search+))
+  (setf *icon-back*   (load-icon +back+))
+  (setf *icon-search* (load-icon +go+))
+  (setf *icon-search* (load-icon +open-tour+))
+  (setf *icon-search* (load-icon +refresh+)))

src/package.lisp

@@ -3268,8 +3268,11 @@
                     (:gui-utils  :nodgui.utils))
   (:export
    :+icon-dir+
-   :load-icon
+   :*icon-search*
-   :load-icons))
+   :*icon-back*
+   :*icon-go*
+   :*icon-open-tour*
+   :*icon-refresh*))
 
 (defpackage :client-menu-command
   (:use