Mouse Clicks in Scroll Bar

Monday, September 1, 2003

Someone complained on gnu.emacs.bug that the scroll bar doesn't behave correctly when clicked. The following is my reply and fix.

[...] It was an attempt to auto-repeat mouse events in the scroll bar, which used to work. Perhaps it's better to do without the auto-repeat:

(defun mac-handle-scroll-bar-event (event)
  "Handle scroll bar EVENT on Mac OS."
  (interactive "e")
  (let* ((position (event-start event))
         (window (nth 0 position))
         (bar-part (nth 4 position)))
    (select-window window)
    (cond
     ((eq bar-part 'up)
      (read-event)			; discard mouse-1
      (scroll-down 1))
     ((eq bar-part 'above-handle)
      (read-event)
      (scroll-down))
     ((eq bar-part 'handle)
      (read-event)
      (scroll-bar-drag event))
     ((eq bar-part 'below-handle)
      (read-event)
      (scroll-up))
     ((eq bar-part 'down)
      (read-event)
      (scroll-up 1)))))

For now please add this to your startup file. I'll check this in to replace the old definition of the function in lisp/term/mac-win.el soon.