[Emacs-diffs] Changes to emacs/lisp/tree-widget.el

[David Ponce]

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.")