Lines Matching defs:hit
74 MOUSE-LIST is a list of atoms specifying a mouse hit according to these rules:
143 (defmacro sm::hit-code (hit)
144 `(nth 0 ,hit))
146 (defmacro sm::hit-button (hit)
147 `(logand sm::ButtonBits (nth 0 ,hit)))
149 (defmacro sm::hit-shiftmask (hit)
150 `(logand sm::ShiftmaskBits (nth 0 ,hit)))
152 (defmacro sm::hit-double (hit)
153 `(logand sm::DoubleBits (nth 0 ,hit)))
155 (defmacro sm::hit-up (hit)
156 `(logand sm::UpBits (nth 0 ,hit)))
158 (defmacro sm::hit-x (hit) (list 'nth 1 hit))
160 (defmacro sm::hit-y (hit) (list 'nth 2 hit))
161 ;;; Milliseconds since last hit.
162 (defmacro sm::hit-delta (hit) (list 'nth 3 hit))
164 (defmacro sm::hit-up-p (hit) ; A predicate.
165 `(not (zerop (sm::hit-up ,hit))))
242 (defun sun-mouse-handler (&optional hit)
243 "Evaluates the function or list associated with a mouse hit.
244 Expecting to read a hit, which is a list: (button x y delta).
252 (if (null hit) (setq hit (sm::combined-hits)))
253 (let ((loc (sm::window-xy (sm::hit-x hit) (sm::hit-y hit))))
257 (mouse-code (mouse-event-code hit loc)))
261 (if (not (sm::hit-up-p hit)) ; undefined up hits are ok.
282 "Read and return next mouse-hit, include possible double click"
283 (let ((hit1 (mouse-hit-read)))
284 (if (not (sm::hit-up-p hit1)) ; Up hits don't start doubles or chords.
285 (let ((hit2 (mouse-second-hit extra-click-wait)))
287 ; (setf (sm::hit-code hit1) (logior (sm::hit-code hit1) ...))
288 (setcar hit1 (logior (sm::hit-code hit1)
289 (sm::hit-code hit2)
290 (if (= (sm::hit-button hit1)
291 (sm::hit-button hit2))
295 (defun mouse-hit-read ()
296 "Read mouse-hit list from keyboard. Like (read 'read-char),
323 (defun mouse-second-hit (hit-wait)
324 "Returns the next mouse hit occurring within HIT-WAIT milliseconds."
325 (if (sit-for-millisecs hit-wait) nil ; No input within hit-wait millisecs.
340 (let ((new-hit (mouse-hit-read))) ; Read the new hit.
341 (if (sm::hit-up-p new-hit) ; Ignore up events when timing.
342 (mouse-second-hit (- hit-wait (sm::hit-delta new-hit)))
343 new-hit ; New down hit within limit, return it.
410 (defun mouse-event-code (hit loc)
413 (logior (sm::hit-code hit)