Mercurial > emacs
comparison lisp/term/mac-win.el @ 56373:493a379b41a6
term/mac-win.el (mac-scroll-ignore-events, mac-scroll-down)
(mac-scroll-down-line, mac-scroll-up, mac-scroll-up-line):
Do not treat double clicks and triple clicks specially in the
scroll bar (preventing strange repositioning problems)
| author | Steven Tamm <steventamm@mac.com> |
|---|---|
| date | Thu, 08 Jul 2004 15:24:54 +0000 |
| parents | 695cf19ef79e |
| children | 25a1d37d22fb 029a652ac817 |
comparison
equal
deleted
inserted
replaced
| 56372:500beada7df6 | 56373:493a379b41a6 |
|---|---|
| 66 (mac-scroll-up)) | 66 (mac-scroll-up)) |
| 67 ((eq bar-part 'down) | 67 ((eq bar-part 'down) |
| 68 (goto-char (window-start window)) | 68 (goto-char (window-start window)) |
| 69 (mac-scroll-up-line))))) | 69 (mac-scroll-up-line))))) |
| 70 | 70 |
| 71 (defun mac-scroll-ignore-events () | |
| 72 ;; Ignore confusing non-mouse events | |
| 73 (while (not (memq (car-safe (read-event)) | |
| 74 '(mouse-1 double-mouse-1 triple-mouse-1))) nil)) | |
| 75 | |
| 71 (defun mac-scroll-down () | 76 (defun mac-scroll-down () |
| 72 (track-mouse | 77 (track-mouse |
| 73 (while (not (eq (car-safe (read-event)) 'mouse-1)) nil) | 78 (mac-scroll-ignore-events) |
| 74 (scroll-down))) | 79 (scroll-down))) |
| 75 | 80 |
| 76 (defun mac-scroll-down-line () | 81 (defun mac-scroll-down-line () |
| 77 (track-mouse | 82 (track-mouse |
| 78 (while (not (eq (car-safe (read-event)) 'mouse-1)) nil) | 83 (mac-scroll-ignore-events) |
| 79 (scroll-down 1))) | 84 (scroll-down 1))) |
| 80 | 85 |
| 81 (defun mac-scroll-up () | 86 (defun mac-scroll-up () |
| 82 (track-mouse | 87 (track-mouse |
| 83 (while (not (eq (car-safe (read-event)) 'mouse-1)) nil) | 88 (mac-scroll-ignore-events) |
| 84 (scroll-up))) | 89 (scroll-up))) |
| 85 | 90 |
| 86 (defun mac-scroll-up-line () | 91 (defun mac-scroll-up-line () |
| 87 (track-mouse | 92 (track-mouse |
| 88 (while (not (eq (car-safe (read-event)) 'mouse-1)) nil) | 93 (mac-scroll-ignore-events) |
| 89 (scroll-up 1))) | 94 (scroll-up 1))) |
| 90 | 95 |
| 91 (defun xw-defined-colors (&optional frame) | 96 (defun xw-defined-colors (&optional frame) |
| 92 "Internal function called by `defined-colors', which see." | 97 "Internal function called by `defined-colors', which see." |
| 93 (or frame (setq frame (selected-frame))) | 98 (or frame (setq frame (selected-frame))) |