mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Improve custom button faces on monochrome displays

Browse source 
* lisp/cus-edit.el (custom-button, custom-button-mouse)
(custom-button-pressed): Define raised boxes on monochrome
displays.
This commit is contained in:
Po Lu 2024-04-25 10:54:17 +08:00
parent 3776539152
commit 2c8e7ebe69
1 changed files with 20 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

27
lisp/cus-edit.el
View file

@ -2251,24 +2251,33 @@ and `face'."
;;; The `custom' Widget.
(defface custom-button
'((((type x w32 ns haiku pgtk android) (class color)) ; Like default mode line
'((((type x w32 ns haiku pgtk android) (class color)
(min-colors 88)) ; Like default mode line
:box (:line-width 2 :style released-button)
:background "lightgrey" :foreground "black"))
:background "lightgrey" :foreground "black")
(((type x w32 ns haiku pgtk android))
:box (:line-width 2 :style released-button)
:background "white" :foreground "black"))
"Face for custom buffer buttons if `custom-raised-buttons' is non-nil."
:version "21.1"
:version "30.1"
:group 'custom-faces)
(defface custom-button-mouse
'((((type x w32 ns haiku pgtk android) (class color))
'((((type x w32 ns haiku pgtk android) (class color)
(min-colors 88))
:box (:line-width 2 :style released-button)
:background "grey90" :foreground "black")
(((type x w32 ns haiku pgtk android))
:box (:line-width 2 :style released-button)
;; Either light gray or a stipple pattern.
:background "gray20" :foreground "black")
(t
;; This is for text terminals that support mouse, like GPM mouse
;; or the MS-DOS terminal: inverse-video makes the button stand
;; out on mouse-over.
:inverse-video t))
"Mouse face for custom buffer buttons if `custom-raised-buttons' is non-nil."
:version "22.1"
:version "30.1"
:group 'custom-faces)
(defface custom-button-unraised
@ -2284,12 +2293,16 @@ and `face'."
(if custom-raised-buttons 'custom-button-mouse 'highlight))
(defface custom-button-pressed
'((((type x w32 ns haiku pgtk android) (class color))
'((((type x w32 ns haiku pgtk android) (class color grayscale))
:box (:line-width 2 :style pressed-button)
:background "lightgrey" :foreground "black")
(((type x w32 ns haiku pgtk android))
:box (:line-width 2 :style pressed-button)
;; Either light gray or a stipple pattern.
:background "gray20" :foreground "black")
(t :inverse-video t))
"Face for pressed custom buttons if `custom-raised-buttons' is non-nil."
:version "21.1"
:version "30.1"
:group 'custom-faces)
(defface custom-button-pressed-unraised