Lines Matching defs:mouse
39 ;; * Find a way to disable mouse highlight for inactive widgets.
70 "Non-nil if EVENT is a mouse-button-release event object."
72 (memq (event-basic-type event) '(mouse-1 mouse-2 mouse-3))
122 (defcustom widget-mouse-face 'highlight
123 "Face used for widget buttons when the mouse is above them."
220 mouse event, and the number of elements in items is less than
346 (setq help-echo 'widget-mouse-help))
400 (setq help-echo 'widget-mouse-help))
407 (overlay-put overlay 'mouse-face
408 (widget-apply widget :mouse-face-get)))
413 (defun widget-mouse-help (window overlay point)
458 ;; This is disabled, as it makes the mouse cursor change shape.
459 ;; (overlay-put overlay 'mouse-face 'widget-inactive)
659 tag 'mouse-face widget-button-pressed-face)))
665 (mouse-set-point event)
863 (define-key map [down-mouse-2] 'widget-button-click)
864 (define-key map [down-mouse-1] 'widget-button-click)
921 "Invoke the button that the mouse is pointing at."
925 (mouse-1 (memq (event-basic-type event) '(mouse-1 down-mouse-1)))
945 (mouse-face (overlay-get overlay 'mouse-face)))
947 ;; Read events, including mouse-movement
949 ;; began with a mouse-1 event and receive a
952 ;; button press and do the default mouse-1
953 ;; action. For mouse-2, just highlight/
954 ;; unhighlight the button the mouse was
959 (overlay-put overlay 'mouse-face pressed-face))
960 (unless (widget-apply button :mouse-down-action event)
961 (let ((track-mouse t))
964 (when (and mouse-1 (mouse-movement-p event))
977 (overlay-put overlay 'mouse-face pressed-face))
979 (overlay-put overlay 'mouse-face mouse-face))))))
981 ;; When mouse is released over the button, run
989 (overlay-put overlay 'mouse-face mouse-face))))
994 ;; (mouse-set-point event)
1003 (if mouse-1
1005 (lookup-key widget-global-map [down-mouse-1]))
1008 (lookup-key widget-global-map [mouse-1]))))
1010 (lookup-key widget-global-map [down-mouse-2]))
1013 (lookup-key widget-global-map [mouse-2])))))
1421 :mouse-face-get 'widget-default-mouse-face-get
1434 :mouse-down-action #'ignore
1566 (defun widget-default-mouse-face-get (widget)
1567 ;; Use :mouse-face or widget-mouse-face
1568 (or (widget-get widget :mouse-face)
1571 (widget-apply parent :mouse-face-get)
1572 widget-mouse-face))))
1992 :mouse-down-action 'widget-choice-mouse-down-action
2039 (defun widget-choice-mouse-down-action (widget &optional event)
2887 (widget-mouse-face (default-value 'widget-mouse-face))