Mercurial > emacs

comparison lisp/term/w32-win.el @ 15265:658224992372

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(win32-handle-scroll-bar-event): Restore original window selection after scrolling.
author Karl Heuer <kwzh@gnu.org>
date Tue, 21 May 1996 14:40:56 +0000
parents ff9f17883c5b
children 481b7874a1e9
comparison
equal deleted inserted replaced
15264:0eb55cad57c6 15265:658224992372
82 ;; scroll bar routines. 82 ;; scroll bar routines.
83 83
84 (defun win32-handle-scroll-bar-event (event) 84 (defun win32-handle-scroll-bar-event (event)
85 "Handle Win32 scroll bar events to do normal Window style scrolling." 85 "Handle Win32 scroll bar events to do normal Window style scrolling."
86 (interactive "e") 86 (interactive "e")
87 (let* ((position (event-start event)) 87 (let ((old-window (selected-window)))
88 (window (nth 0 position)) 88 (unwind-protect
89 (portion-whole (nth 2 position)) 89 (let* ((position (event-start event))
90 (bar-part (nth 4 position))) 90 (window (nth 0 position))
91 (save-excursion 91 (portion-whole (nth 2 position))
92 (select-window window) 92 (bar-part (nth 4 position)))
93 (cond 93 (save-excursion
94 ((eq bar-part 'up) 94 (select-window window)
95 (scroll-down 1)) 95 (cond
96 ((eq bar-part 'above-handle) 96 ((eq bar-part 'up)
97 (scroll-down)) 97 (scroll-down 1))
98 ((eq bar-part 'handle) 98 ((eq bar-part 'above-handle)
99 (scroll-bar-maybe-set-window-start event)) 99 (scroll-down))
100 ((eq bar-part 'below-handle) 100 ((eq bar-part 'handle)
101 (scroll-up)) 101 (scroll-bar-maybe-set-window-start event))
102 ((eq bar-part 'down) 102 ((eq bar-part 'below-handle)
103 (scroll-up 1)) 103 (scroll-up))
104 )))) 104 ((eq bar-part 'down)
105 (scroll-up 1))
106 )))
107 (select-window old-window))))
105 108
106 ;; The following definition is used for debugging. 109 ;; The following definition is used for debugging.
107 ;(defun win32-handle-scroll-bar-event (event) (interactive "e") (princ event)) 110 ;(defun win32-handle-scroll-bar-event (event) (interactive "e") (princ event))
108 111
109 (global-set-key [vertical-scroll-bar mouse-1] 'win32-handle-scroll-bar-event) 112 (global-set-key [vertical-scroll-bar mouse-1] 'win32-handle-scroll-bar-event)