1
0
mirror of https://codeberg.org/cage/tinmop/ synced 2024-12-30 00:39:54 +01:00

- [GUI] added a few icons.

This commit is contained in:
cage 2023-02-05 14:57:31 +01:00
parent 801829b528
commit 2a96ff70ef
8 changed files with 31 additions and 8 deletions

View File

@ -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
https://commons.wikimedia.org/wiki/File:Farm-Fresh_magnifier.png
- data/icons/fmw_*.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

BIN
data/icons/fmw_back.png Normal file

Binary file not shown.

After

(image error) Size: 3.2 KiB

BIN
data/icons/fmw_go.png Normal file

Binary file not shown.

After

(image error) Size: 2.4 KiB

Binary file not shown.

After

(image error) Size: 1.9 KiB

BIN
data/icons/fmw_refresh.png Normal file

Binary file not shown.

After

(image error) Size: 1.6 KiB

View File

Before

(image error) Size: 1.9 KiB

After

(image error) Size: 1.9 KiB

View File

@ -2,10 +2,26 @@
(a:define-constant +icon-dir+ "/icons/" :test #'string=)
(a:define-constant +icon-search+ "search" :test #'string=)
(a:define-constant +search+ "fmw_search" :test #'string=)
(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))
(res:get-config-file (fs:cat-parent-dir +icon-dir+
@ -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+)))

View File

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