Commit 85a5eb0e authored by Chong Yidong's avatar Chong Yidong
Browse files

* cus-edit.el (custom-button-mouse): New variable.

	(custom-button-mouse): New face.
	(custom-raised-buttons, custom-mode): Use it.

	* cus-theme.el (custom-new-theme-mode): Use custom-button-mouse.
parent cdda1b59
2005-12-31 Chong Yidong <cyd@stupidchicken.com>
* cus-edit.el (custom-button-mouse): New variable.
(custom-button-mouse): New face.
(custom-raised-buttons, custom-mode): Use it.
* cus-theme.el (custom-new-theme-mode): Use custom-button-mouse.
2005-12-31 Eli Zaretskii <eliz@gnu.org> 2005-12-31 Eli Zaretskii <eliz@gnu.org>
   
* progmodes/gud.el (gud-display-line): Support hl-line in the * progmodes/gud.el (gud-display-line): Support hl-line in the
......
...@@ -1405,6 +1405,9 @@ This button will have a menu with all three reset operations." ...@@ -1405,6 +1405,9 @@ This button will have a menu with all three reset operations."
(defvar custom-button nil (defvar custom-button nil
"Face used for buttons in customization buffers.") "Face used for buttons in customization buffers.")
(defvar custom-button-mouse nil
"Mouse face used for buttons in customization buffers.")
(defvar custom-button-pressed nil (defvar custom-button-pressed nil
"Face used for pressed buttons in customization buffers.") "Face used for pressed buttons in customization buffers.")
...@@ -1419,6 +1422,8 @@ Otherwise use brackets." ...@@ -1419,6 +1422,8 @@ Otherwise use brackets."
(custom-set-default variable value) (custom-set-default variable value)
(setq custom-button (setq custom-button
(if value 'custom-button 'custom-button-unraised)) (if value 'custom-button 'custom-button-unraised))
(setq custom-button-mouse
(if value 'custom-button-mouse 'highlight))
(setq custom-button-pressed (setq custom-button-pressed
(if value (if value
'custom-button-pressed 'custom-button-pressed
...@@ -1960,6 +1965,16 @@ and `face'." ...@@ -1960,6 +1965,16 @@ and `face'."
;; backward-compatibility alias ;; backward-compatibility alias
(put 'custom-button-face 'face-alias 'custom-button) (put 'custom-button-face 'face-alias 'custom-button)
(defface custom-button-mouse
'((((type x w32 mac) (class color))
(:box (:line-width 2 :style released-button)
:background "grey90" :foreground "black"))
(t
nil))
"Mouse face for custom buffer buttons if `custom-raised-buttons' is non-nil."
:version "22.1"
:group 'custom-faces)
(defface custom-button-unraised (defface custom-button-unraised
'((((min-colors 88) '((((min-colors 88)
(class color) (background light)) :foreground "blue1" :underline t) (class color) (background light)) :foreground "blue1" :underline t)
...@@ -1975,6 +1990,9 @@ and `face'." ...@@ -1975,6 +1990,9 @@ and `face'."
(setq custom-button (setq custom-button
(if custom-raised-buttons 'custom-button 'custom-button-unraised)) (if custom-raised-buttons 'custom-button 'custom-button-unraised))
(setq custom-button-mouse
(if custom-raised-buttons 'custom-button-mouse 'highlight))
(defface custom-button-pressed (defface custom-button-pressed
'((((type x w32 mac) (class color)) '((((type x w32 mac) (class color))
(:box (:line-width 2 :style pressed-button) (:box (:line-width 2 :style pressed-button)
...@@ -4407,8 +4425,7 @@ if that value is non-nil." ...@@ -4407,8 +4425,7 @@ if that value is non-nil."
(make-local-variable 'widget-button-face) (make-local-variable 'widget-button-face)
(setq widget-button-face custom-button) (setq widget-button-face custom-button)
(set (make-local-variable 'widget-button-pressed-face) custom-button-pressed) (set (make-local-variable 'widget-button-pressed-face) custom-button-pressed)
(if custom-raised-buttons (set (make-local-variable 'widget-mouse-face) custom-button-mouse)
(set (make-local-variable 'widget-mouse-face) custom-button))
;; When possible, use relief for buttons, not bracketing. This test ;; When possible, use relief for buttons, not bracketing. This test
;; may not be optimal. ;; may not be optimal.
......
...@@ -50,8 +50,7 @@ use by `customize-create-theme'." ...@@ -50,8 +50,7 @@ use by `customize-create-theme'."
(set (make-local-variable 'widget-documentation-face) 'custom-documentation) (set (make-local-variable 'widget-documentation-face) 'custom-documentation)
(set (make-local-variable 'widget-button-face) custom-button) (set (make-local-variable 'widget-button-face) custom-button)
(set (make-local-variable 'widget-button-pressed-face) custom-button-pressed) (set (make-local-variable 'widget-button-pressed-face) custom-button-pressed)
(if custom-raised-buttons (set (make-local-variable 'widget-mouse-face) custom-button-mouse)
(set (make-local-variable 'widget-mouse-face) custom-button))
(when custom-raised-buttons (when custom-raised-buttons
(set (make-local-variable 'widget-push-button-prefix) "") (set (make-local-variable 'widget-push-button-prefix) "")
(set (make-local-variable 'widget-push-button-suffix) "") (set (make-local-variable 'widget-push-button-suffix) "")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment