[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/tree-widget.el
From: |
David Ponce |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/tree-widget.el |
Date: |
Tue, 18 Oct 2005 07:30:19 -0400 |
Index: emacs/lisp/tree-widget.el
diff -c emacs/lisp/tree-widget.el:1.12 emacs/lisp/tree-widget.el:1.13
*** emacs/lisp/tree-widget.el:1.12 Fri Sep 30 06:28:53 2005
--- emacs/lisp/tree-widget.el Tue Oct 18 11:30:18 2005
***************
*** 434,449 ****
;;; Widgets
;;
(defvar tree-widget-button-keymap
(let ((km (make-sparse-keymap)))
(if (boundp 'widget-button-keymap)
;; XEmacs
(progn
(set-keymap-parent km widget-button-keymap)
! (define-key km [button1] 'widget-button-click))
;; Emacs
(set-keymap-parent km widget-keymap)
! (define-key km [down-mouse-1] 'widget-button-click))
km)
"Keymap used inside node buttons.
Handle mouse button 1 click on buttons.")
--- 434,458 ----
;;; Widgets
;;
+ (defun tree-widget-button-click (event)
+ "Move to the position clicked on, and if it is a button, invoke it.
+ EVENT is the mouse event received."
+ (interactive "e")
+ (mouse-set-point event)
+ (let ((pos (widget-event-point event)))
+ (if (get-char-property pos 'button)
+ (widget-button-click event))))
+
(defvar tree-widget-button-keymap
(let ((km (make-sparse-keymap)))
(if (boundp 'widget-button-keymap)
;; XEmacs
(progn
(set-keymap-parent km widget-button-keymap)
! (define-key km [button1] 'tree-widget-button-click))
;; Emacs
(set-keymap-parent km widget-keymap)
! (define-key km [down-mouse-1] 'tree-widget-button-click))
km)
"Keymap used inside node buttons.
Handle mouse button 1 click on buttons.")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/tree-widget.el,
David Ponce <=