Lines Matching defs:mouse
56 ;; o mouse set point
68 ;; -track-mouse-flag -- mouse tracking on/off specific to your tool.
90 ;; Set these variables: dframe-track-mouse-function,
92 ;; dframe-mouse-click-function,
93 ;; dframe-mouse-position-function.
98 ;; 4) Handling mouse clicks, and help text:
99 ;; dframe-track-mouse, dframe-help-echo-function --
101 ;; based on the mouse's position.
104 ;; Have a `-click' function, it can call `dframe-quick-mouse' for
206 (defvar dframe-track-mouse-function nil
207 "*A function to call when the mouse is moved in the given frame.
208 Typically used to display info about the line under the mouse.")
209 (make-variable-buffer-local 'dframe-track-mouse-function)
213 Typically used to display info about the line under the mouse.")
216 (defvar dframe-mouse-click-function nil
217 "*A function to call when the mouse is clicked.
218 Valid clicks are mouse 2, our double mouse 1.")
219 (make-variable-buffer-local 'dframe-mouse-click-function)
221 (defvar dframe-mouse-position-function nil
222 "*A function to called to position the cursor for a mouse click.")
223 (make-variable-buffer-local 'dframe-mouse-position-function)
226 "Never set this by hand. Value is t when S-mouse activity occurs.")
256 ;; mouse bindings so we can manipulate the items on each line
265 ;; mouse bindings so we can manipulate the items on each line
266 ;; (define-key map [down-mouse-1] 'dframe-double-click)
267 (define-key map [follow-link] 'mouse-face)
268 (define-key map [mouse-2] 'dframe-click)
270 (define-key map [S-mouse-2] 'dframe-power-click)
272 ;;(define-key map [down-mouse-2] 'dframe-quick-mouse)
274 (define-key map [down-mouse-3] 'dframe-emacs-popup-kludge)
277 (define-key map [mode-line mouse-2] 'dframe-mouse-hscroll)
279 (define-key map [mode-line down-mouse-1]
282 ;; We can't switch buffers with the buffer mouse menu. Lets hack it.
283 (define-key map [C-down-mouse-1] 'dframe-hack-buffer-menu)
285 ;; Lastly, we want to track the mouse. Play here
286 (define-key map [mouse-movement] 'dframe-track-mouse)
338 ;; Hack the XEmacs mouse-motion handler
340 ;; Hack the XEmacs mouse-motion handler
341 (set (make-local-variable 'mouse-motion-handler)
342 'dframe-track-mouse-xemacs)
344 (make-local-variable 'mouse-track-click-hook)
345 (add-hook 'mouse-track-click-hook
350 (dframe-quick-mouse event))
354 (dframe-quick-mouse event)))
357 ;; Enable mouse tracking in emacs
358 (if dframe-track-mouse-function
359 (set (make-local-variable 'track-mouse) t))) ;this could be messy.
719 "Jump to the attached frame ONLY if this was not a mouse event."
720 (when (or (not (dframe-mouse-event-p last-input-event))
843 ;;; Menu hacking for mouse-3
853 ;; In XEmacs, we make popup menus work on the item over mouse (as
883 (mouse-set-point e)
888 (mouse-major-mode-menu e)
889 (mouse-major-mode-menu e nil))))
891 ;;; Interactive user functions for the mouse
894 (defalias 'dframe-mouse-event-p 'button-press-event-p)
895 (defun dframe-mouse-event-p (event)
896 "Return t if the event is a mouse related event."
899 '(mouse-1 mouse-2 mouse-3)))
903 (defun dframe-track-mouse (event)
906 (when (and dframe-track-mouse-function
912 (funcall dframe-track-mouse-function event)))
914 (defun dframe-track-mouse-xemacs (event)
916 (if (functionp (default-value 'mouse-motion-handler))
917 (funcall (default-value 'mouse-motion-handler) event))
918 (if dframe-track-mouse-function
919 (funcall dframe-track-mouse-function event)))
925 (when (and (not dframe-track-mouse-function)
934 (defun dframe-mouse-set-point (e)
939 (mouse-set-point e)
948 (mouse-set-point e)))
951 (mouse-set-point e)))
953 (defun dframe-quick-mouse (e)
954 "Since mouse events are strange, this will keep the mouse nicely positioned.
955 This should be bound to mouse event E."
957 (dframe-mouse-set-point e)
958 (if dframe-mouse-position-function
959 (funcall dframe-mouse-position-function)))
962 "Activate any dframe mouse click as a power click.
965 This should be bound to mouse event E."
975 (dframe-mouse-set-point e)
976 (when dframe-mouse-click-function
979 (funcall dframe-mouse-click-function e)))
983 This must be bound to a mouse event.
984 This should be bound to mouse event E."
986 ;; Emacs only. XEmacs handles this via `mouse-track-click-hook'.
987 (cond ((eq (car e) 'down-mouse-1)
988 (dframe-mouse-set-point e))
989 ((eq (car e) 'mouse-1)
990 (dframe-quick-mouse e))
991 ((or (eq (car e) 'double-down-mouse-1)
992 (eq (car e) 'triple-down-mouse-1))
1018 "Control mouse 1 is buffer menu.
1025 [C-down-mouse-1])))
1054 (defun dframe-mouse-hscroll (e)
1055 "Read a mouse event E from the mode line, and horizontally scroll.
1056 If the mouse is being clicked on the far left, or far right of the