changeset 26510:6866d2a9a421

(scroll-bar-toolkit-scroll): add handling of the `ratio' event for Xaw and Xaw3d(without arrows) scrollbars.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 19 Nov 1999 20:18:47 +0000
parents 26958042b58d
children 0ef930a8a8db
files lisp/ChangeLog lisp/scroll-bar.el
diffstat 2 files changed, 11 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Fri Nov 19 20:14:12 1999 +0000
+++ b/lisp/ChangeLog	Fri Nov 19 20:18:47 1999 +0000
@@ -1,5 +1,8 @@
 1999-11-19  Stefan Monnier  <monnier@cs.yale.edu>
 
+	* scroll-bar.el (scroll-bar-toolkit-scroll): add handling of the `ratio'
+	event for Xaw and Xaw3d(without arrows) scrollbars.
+
 	* files.el (auto-mode-alist): add patterns for diff-mode.
 
 	* complete.el (PC-do-complete-and-exit): use minibuffer-prompt-end to
--- a/lisp/scroll-bar.el	Fri Nov 19 20:14:12 1999 +0000
+++ b/lisp/scroll-bar.el	Fri Nov 19 20:18:47 1999 +0000
@@ -316,6 +316,13 @@
 		    (scroll-up '-))
 		   ((eq part 'below-handle)
 		    (scroll-up nil))
+		   ((eq part 'ratio)
+		    (let* ((portion-whole (nth 2 end-position))
+			   (lines (scroll-bar-scale portion-whole
+						    (1- (window-height)))))
+		      (scroll-up (cond ((not (zerop lines)) lines)
+				       ((< (car portion-whole) 0) -1)
+				       (t 1)))))
 		   ((eq part 'up)
 		    (scroll-up -1))
 		   ((eq part 'down)
@@ -330,7 +337,7 @@
 	   (sit-for 0)
 	   (unless scroll-bar-timer
 	     (setq scroll-bar-timer
-		   (run-with-timer 0.1 0.1 'xt-process-timeouts)))
+	   	   (run-with-timer 0.1 0.1 'xt-process-timeouts)))
 	   (with-current-buffer (window-buffer window)
 	     (setq point-before-scroll before-scroll))))))