mirror of https://codeberg.org/cage/tinmop/
- [GUI] added a better icon for search frame closing button.
This commit is contained in:
parent
9cc82e6cf2
commit
92cac487ff
Binary file not shown.
After Width: | Height: | Size: 1.0 KiB |
|
@ -32,6 +32,8 @@
|
||||||
|
|
||||||
(a:define-constant +arrow-down+ "fmw_arrow-down" :test #'string=)
|
(a:define-constant +arrow-down+ "fmw_arrow-down" :test #'string=)
|
||||||
|
|
||||||
|
(a:define-constant +cross+ "fmw_cross" :test #'string=)
|
||||||
|
|
||||||
(defparameter *search* nil)
|
(defparameter *search* nil)
|
||||||
|
|
||||||
(defparameter *back* nil)
|
(defparameter *back* nil)
|
||||||
|
@ -62,6 +64,8 @@
|
||||||
|
|
||||||
(defparameter *arrow-down* nil)
|
(defparameter *arrow-down* nil)
|
||||||
|
|
||||||
|
(defparameter *cross* nil)
|
||||||
|
|
||||||
(defun load-icon (filename)
|
(defun load-icon (filename)
|
||||||
(let ((path (if (not (re:scan "(?i)png$" filename))
|
(let ((path (if (not (re:scan "(?i)png$" filename))
|
||||||
(res:get-data-file (fs:cat-parent-dir +icon-dir+
|
(res:get-data-file (fs:cat-parent-dir +icon-dir+
|
||||||
|
@ -86,6 +90,7 @@
|
||||||
(setf *star-yellow* (load-icon +star-yellow+))
|
(setf *star-yellow* (load-icon +star-yellow+))
|
||||||
(setf *star-blue* (load-icon +star-blue+))
|
(setf *star-blue* (load-icon +star-blue+))
|
||||||
(setf *arrow-up* (load-icon +arrow-up+))
|
(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)
|
(defparameter *arrow-down* nil)
|
||||||
|
|
|
@ -31,7 +31,7 @@
|
||||||
(case-sensitive-checkbox (make-instance 'gui:check-button
|
(case-sensitive-checkbox (make-instance 'gui:check-button
|
||||||
:master frame
|
:master frame
|
||||||
:text (_ "Case sensitive")))
|
:text (_ "Case sensitive")))
|
||||||
(button-close (make-instance 'gui:button :image icons:*document-delete*
|
(button-close (make-instance 'gui:button :image icons:*cross*
|
||||||
:master frame)))
|
:master frame)))
|
||||||
(setf (entry frame) (make-instance 'gui:entry :master frame))
|
(setf (entry frame) (make-instance 'gui:entry :master frame))
|
||||||
(setf (button-next frame) (make-instance 'gui:button :image icons:*arrow-down*
|
(setf (button-next frame) (make-instance 'gui:button :image icons:*arrow-down*
|
||||||
|
|
|
@ -3336,7 +3336,8 @@
|
||||||
:*star-yellow*
|
:*star-yellow*
|
||||||
:*star-blue*
|
:*star-blue*
|
||||||
:*arrow-up*
|
:*arrow-up*
|
||||||
:*arrow-down*))
|
:*arrow-down*
|
||||||
|
:*cross*))
|
||||||
|
|
||||||
(defpackage :validation
|
(defpackage :validation
|
||||||
(:use
|
(:use
|
||||||
|
|
Loading…
Reference in New Issue