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:
parent
801829b528
commit
2a96ff70ef
@ -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
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
BIN
data/icons/fmw_go.png
Normal file
Binary file not shown.
After (image error) Size: 2.4 KiB |
BIN
data/icons/fmw_open_tour.png
Normal file
BIN
data/icons/fmw_open_tour.png
Normal file
Binary file not shown.
After (image error) Size: 1.9 KiB |
BIN
data/icons/fmw_refresh.png
Normal file
BIN
data/icons/fmw_refresh.png
Normal file
Binary file not shown.
After (image error) Size: 1.6 KiB |
Before (image error) Size: 1.9 KiB After (image error) Size: 1.9 KiB |
@ -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+)))
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user