Lines Matching defs:mouse
1 ;;; strokes.el --- control Emacs through mouse strokes
8 ;; Keywords: lisp, mouse, extensions
30 ;; control Emacs by means of mouse strokes. Once strokes is loaded, you
35 ;; and you can learn how to use the package. A mouse stroke, for now,
37 ;; instance, and then moving the mouse in whatever pattern you wish,
39 ;; command. For example, you may wish the have a mouse stroke that
112 ;; If you find that your mouse is accelerating too fast, you can
130 ;; S-mouse-2 to the command `strokes-do-stroke', and M-mouse-2 to
132 ;; with mouse button 3.
139 ;; in entering in pictographic-like language text using the mouse
214 "Control Emacs through mouse strokes."
216 :group 'mouse)
363 (defsubst strokes-mouse-event-p (event)
365 (or (eq (car event) 'mouse-movement)
447 "Draw with mouse button 1 (or 2). End with button 3..."))
463 "Draw with mouse button 1 (or 2). End with button 3..."))
470 ;; the stroke with the mouse"
745 (error "You must draw with the mouse")))
747 (track-mouse
751 (if (strokes-mouse-event-p event)
761 (push (cdr (mouse-pixel-position))
776 (error "You must draw with the mouse")))
777 (track-mouse
780 (if (strokes-mouse-event-p event)
781 (push (cdr (mouse-pixel-position))
806 (track-mouse
809 (eq 'mouse-3
813 (if (strokes-mouse-event-p event)
819 (push (cdr (mouse-pixel-position))
866 This must be bound to a mouse event."
874 This must be bound to a mouse event."
909 the mouse or other pointer device, that Emacs can interpret as
927 system, with a mouse or other pointer device defined.
964 Chinese/Japanese/Korean. So the shifted middle mouse button (S-mouse-2) will
1004 These are just complex strokes, and thus continue drawing with mouse-1
1005 or mouse-2 and end with mouse-3. Then the stroke image gets inserted
1018 o The command `strokes-do-complex-stroke' is invoked with M-mouse-2,
1380 (define-key map [(shift down-mouse-2)] 'strokes-do-stroke)
1381 (define-key map [(meta down-mouse-2)] 'strokes-do-complex-stroke)
1388 Strokes are pictographic mouse gestures which invoke commands.
1401 (cond ((not (display-mouse-p))
1402 (error "Can't use Strokes without a mouse"))