From 3f1b1391b810993fc8ade367058ee0d86acc411a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 13 Jun 2009 13:26:52 +0000
Subject: [PATCH] fix wheel step in editor

svn: r15163
---
 collects/mred/private/wxme/editor-canvas.ss | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/collects/mred/private/wxme/editor-canvas.ss b/collects/mred/private/wxme/editor-canvas.ss
index d45f3a5c5a..73ceda5ee0 100644
--- a/collects/mred/private/wxme/editor-canvas.ss
+++ b/collects/mred/private/wxme/editor-canvas.ss
@@ -1,5 +1,6 @@
 #lang scheme/base
 (require scheme/class
+         scheme/file
          "../syntax.ss"
          "editor.ss"
          "editor-admin.ss"
@@ -128,7 +129,11 @@
 
 ;; ----------------------------------------
 
-(define default-wheel-amt 3)
+(define default-wheel-amt
+  (let ([v (get-preference 'MrEd:wheelStep)])
+    (if (exact-integer? v)
+        (max 3 (min 1000 v))
+        3)))
 
 (define (INIT-SB style)
   (append
@@ -439,9 +444,10 @@
                        [y 0])
                (get-scroll x y)
              (let ([y (max (+ y
-                              (if (eq? code 'wheel-up)
-                                  -1
-                                  1))
+                              (* wheel-amt
+                                 (if (eq? code 'wheel-up)
+                                     -1
+                                     1)))
                            0)])
                (do-scroll x y #t))))]
         [else