Re: Customize interface: The use of "boxed" buttons

[storm@cua.dk (Kim F. Storm)]

Richard Stallman <rms@gnu.org> writes:

>     > How would you suggest implementing a look for pressed and unpressed
>     > buttons?
> 
>     The look is fine, it is how it is used.  The pressed button look is,
>     in other GUI's, used when the button is pressed, i.e. on mouse-down
>     not on mouse-over.
> 
> So you're saying that simply removing the mouse-face would make
> it better?
> 
>     A change in mouse cursor type when the mouse is over a button is more
>     common in other application.
> 
> Emacs has no facility for that, but it might not be too hard to add one
> by modifying the code that now does mouse highlighting.

Emacs HAS the facility to do that -- using a pointer property.
Try the following patch:


*** wid-edit.el	20 May 2004 00:13:17 +0200	1.127
--- wid-edit.el	07 Jun 2004 11:27:26 +0200	
***************
*** 386,392 ****
      ;; We want to avoid the face with image buttons.
      (unless (widget-get widget :suppress-face)
        (overlay-put overlay 'face (widget-apply widget :button-face-get))
!       (overlay-put overlay 'mouse-face widget-mouse-face))
      (overlay-put overlay 'help-echo help-echo)))
  
  (defun widget-mouse-help (window overlay point)
--- 386,392 ----
      ;; We want to avoid the face with image buttons.
      (unless (widget-get widget :suppress-face)
        (overlay-put overlay 'face (widget-apply widget :button-face-get))
!       (overlay-put overlay 'pointer 'hand))
      (overlay-put overlay 'help-echo help-echo)))
  
  (defun widget-mouse-help (window overlay point)

-- 
Kim F. Storm <storm@cua.dk> http://www.cua.dk