Lines Matching defs:mouse
450 "*If non-nil, provide a menu on mouse-3 on breakpoint lines, and
941 \\[idlwave-shell-print] or \\[idlwave-shell-mouse-print] with the
942 mouse, help, \\[idlwave-shell-help-expression] or
943 \\[idlwave-shell-mouse-help] with the mouse, or with a
945 \\[idlwave-shell-examine-select]. The mouse examine commands can
2816 (defmacro idlwave-shell-mouse-examine (help &optional ev)
2821 (let* ((drag-track (fboundp 'mouse-drag-track))
2826 'default-mouse-track-event-is-with-button)
2827 'idlwave-xemacs-hack-mouse-track
2828 'mouse-track)
2830 ;; mouse-drag-region, without an additional
2831 ;; event. mouse-drag-track does so.
2832 (if drag-track 'mouse-drag-track 'mouse-drag-region))))
2839 (defun idlwave-default-mouse-track-event-is-with-button (event n)
2842 (defun idlwave-xemacs-hack-mouse-track (event)
2845 'default-mouse-track-event-is-with-button)))
2848 (fset 'default-mouse-track-event-is-with-button
2849 'idlwave-default-mouse-track-event-is-with-button)
2850 (mouse-track event))
2851 (fset 'default-mouse-track-event-is-with-button oldfunc)))))
2854 (defun idlwave-shell-mouse-print (event)
2855 "Print value of variable at the mouse position, with `help'"
2857 (funcall (idlwave-shell-mouse-examine nil) event))
2859 (defun idlwave-shell-mouse-help (event)
2860 "Print value of variable at the mouse position, with `print'."
2862 (funcall (idlwave-shell-mouse-examine 'help) event))
2867 (funcall (idlwave-shell-mouse-examine nil event) event))
3254 (unless (or (eq this-command 'idlwave-shell-mouse-nop)
3263 (unless (or (eq this-command 'idlwave-shell-mouse-nop)
3642 (if (featurep 'xemacs) [button3] [mouse-3])
3643 'idlwave-shell-mouse-active-bp)
3703 " (use mouse-3 for breakpoint actions)")))
3760 (set-extent-property ov 'mouse-face 'highlight)
3784 (overlay-put ov 'mouse-face 'highlight)
3812 (defun idlwave-shell-mouse-active-bp (ev)
3813 "Does right-click mouse action on breakpoint lines."
3815 (if ev (mouse-set-point ev))
4161 ;; The mouse bindings for PRINT and HELP
4165 [(shift down-mouse-2)])
4166 'idlwave-shell-mouse-print)
4170 [(control meta down-mouse-2)])
4171 'idlwave-shell-mouse-help)
4175 [(control shift down-mouse-2)])
4181 [(shift mouse-3)])
4182 'idlwave-mouse-context-help)
4185 (defun idlwave-shell-mouse-nop (event)
4189 [(shift mouse-2)] 'idlwave-shell-mouse-nop)
4191 [(shift control mouse-2)] 'idlwave-shell-mouse-nop)
4193 [(control meta mouse-2)] 'idlwave-shell-mouse-nop))