Lines Matching defs:mouse
1 ;;; artist.el --- draw ascii graphics with your mouse
8 ;; Keywords: mouse
36 ;; rectangles and ellipses by using your mouse and/or keyboard. The
47 ;; result while holding the mouse button down and moving the mouse. If
82 ;; * Drawing with keys: Everything you can do with the mouse, you can
83 ;; also do without the mouse.
130 ;; The shifted operations are not available when drawing with the mouse
134 ;; while drawing with the mouse. (See the comment in the function
145 ;; New: Added tool selection via the mouse-wheel
173 ;; Bugfix: Cursor follows mouse pointer more closely.
223 :group 'mouse)
365 "*If in X Windows, use this pointer shape while drawing with the mouse.")
524 (define-key map [down-mouse-1] 'artist-down-mouse-1)
525 (define-key map [S-down-mouse-1] 'artist-down-mouse-1)
526 (define-key map [down-mouse-2] 'artist-mouse-choose-operation)
527 (define-key map [S-down-mouse-2] 'artist-mouse-choose-operation)
528 (define-key map [down-mouse-3] 'artist-down-mouse-3)
529 (define-key map [S-down-mouse-3] 'artist-down-mouse-3)
530 (define-key map [C-mouse-4] 'artist-select-prev-op-in-list)
531 (define-key map [C-mouse-5] 'artist-select-next-op-in-list)
889 as long as the mouse button is held down.
904 If nil, calls to DRAW-FN are done only when the mouse
1100 ;; mouse wheel cyclic operation selection
1174 and circles with your mouse and/or keyboard.
1186 Drawing with the mouse:
1188 mouse-2
1189 shift mouse-2 Pops up a menu where you can select what to draw with
1190 mouse-1, and where you can do some settings (described
1193 mouse-1
1194 shift mouse-1 Draws lines, rectangles or poly-lines, erases, cuts, copies
1231 * Poly-lines are drawn while holding mouse-1 down. When you
1234 mouse-1 button. Click mouse-2 or mouse-3 to stop drawing
1258 mouse-3 Erases character under pointer
1259 shift mouse-3 Erases rectangle
3942 ;; drawing mode, or even kills the buffer! In the mouse case, it is much
3943 ;; simpler: when at the end of `artist-mouse-draw-continously', the
4193 ;; (which might be different from the mouse's second point,
4747 ;; Drawing lines by using mouse
4753 (set-mouse-color nil))
4768 (defun artist-down-mouse-1 (ev)
4801 ;; 2. Meanwhile, the users releases the mouse button.
4803 ;; button-up event is often mouse-set-point, so Emacs
4806 ;; 4. The user types C-x o (or uses the mouse once again)
4821 (artist-mouse-draw-continously ev))
4823 (artist-mouse-draw-poly ev))
4825 (artist-mouse-draw-1point ev))
4827 (artist-mouse-draw-2points ev))
4847 (defun artist-mouse-choose-operation (ev op)
4873 (defun artist-down-mouse-3 (ev)
4877 (artist-down-mouse-1 ev))
4891 ;; while dragging the cursor around when we are in a track-mouse
4893 ;; (event-basic-type ev) of any help (it is simply `mouse-movement').
4912 (defun artist-mouse-draw-continously (ev)
4914 Operation is done continously while the mouse button is hold down.
4915 The event, EV, is the mouse event."
4940 (track-mouse
4941 (while (or (mouse-movement-p ev)
5001 (defun artist-mouse-draw-poly (ev)
5003 The event, EV, is the mouse event."
5005 (message "Mouse-1: set new point, mouse-2: set last point")
5035 (track-mouse
5052 ;; (which might be different from the mouse's second point,
5066 (or (equal (event-basic-type ev) 'mouse-2)
5067 (equal (event-basic-type ev) 'mouse-3)))
5074 (or (equal (event-basic-type ev) 'mouse-2)
5075 (equal (event-basic-type ev) 'mouse-3)))
5084 (equal (event-basic-type ev) 'mouse-1))
5134 ((and (mouse-movement-p ev)
5161 ((and (mouse-movement-p ev)
5168 ;; *** Moving mouse while mouse button is not down
5169 ((and (mouse-movement-p ev) (not is-down))
5177 (equal (event-basic-type ev) 'mouse-1))
5210 (defun artist-mouse-draw-1point (ev)
5212 Operation is done once. The event, EV, is the mouse event."
5240 (defun artist-mouse-draw-2points (ev)
5242 The event, EV, is the mouse event."
5270 (track-mouse
5271 (while (or (mouse-movement-p ev)
5396 ;; the mouse button is held down (continous modes).
5409 ;; that the shape is drawn only once when the mouse button
5511 ;; b. Create a function artist-mouse-draw-xxx for drawing with
5512 ;; mouse. It should be called from `artist-down-mouse-1'.
5530 ;; When artist-mouse-draw-xxx ends, the shape for your mode
5542 ;; As for the artist-mouse-draw-xxx, these two functions must