emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Kim F. Storm
Subject: Re: Customize interface: The use of "boxed" buttons
Date: 07 Jun 2004 11:29:02 +0200
User-agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3.50

Richard Stallman <address@hidden> 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 <address@hidden> http://www.cua.dk





reply via email to

[Prev in Thread] Current Thread [Next in Thread]