Mercurial > emacs
comparison lisp/wid-edit.el @ 59767:08c82797edef
(widget-specify-button): If mouse pointer shape cannot be changed,
use mouse face instead.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 29 Jan 2005 13:22:21 +0000 |
| parents | 52e7defa0669 |
| children | b302445f7b00 |
comparison
equal
deleted
inserted
replaced
| 59766:8d2464efeb2e | 59767:08c82797edef |
|---|---|
| 389 (overlay-put overlay 'button widget) | 389 (overlay-put overlay 'button widget) |
| 390 (overlay-put overlay 'keymap (widget-get widget :keymap)) | 390 (overlay-put overlay 'keymap (widget-get widget :keymap)) |
| 391 (overlay-put overlay 'evaporate t) | 391 (overlay-put overlay 'evaporate t) |
| 392 ;; We want to avoid the face with image buttons. | 392 ;; We want to avoid the face with image buttons. |
| 393 (unless (widget-get widget :suppress-face) | 393 (unless (widget-get widget :suppress-face) |
| 394 (overlay-put overlay 'face (widget-apply widget :button-face-get))) | 394 (overlay-put overlay 'face (widget-apply widget :button-face-get)) |
| 395 ; Text terminals cannot change mouse pointer shape, so use mouse | |
| 396 ; face instead. | |
| 397 (or (display-graphic-p) | |
| 398 (overlay-put overlay 'mouse-face widget-mouse-face))) | |
| 395 (overlay-put overlay 'pointer 'hand) | 399 (overlay-put overlay 'pointer 'hand) |
| 396 (overlay-put overlay 'follow-link follow-link) | 400 (overlay-put overlay 'follow-link follow-link) |
| 397 (overlay-put overlay 'help-echo help-echo))) | 401 (overlay-put overlay 'help-echo help-echo))) |
| 398 | 402 |
| 399 (defun widget-mouse-help (window overlay point) | 403 (defun widget-mouse-help (window overlay point) |