suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix wheel step in editor

Browse Source 
svn: r15163
This commit is contained in:
Matthew Flatt 2009-06-13 13:26:52 +00:00
parent 1f7ea0f809
commit 3f1b1391b8
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/mred/private/wxme/editor-canvas.ss
View File

@ -1,5 +1,6 @@
#lang scheme/base #lang scheme/base
(require scheme/class (require scheme/class
scheme/file
"../syntax.ss" "../syntax.ss"
"editor.ss" "editor.ss"
"editor-admin.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) (define (INIT-SB style)
(append (append
@ -439,9 +444,10 @@
[y 0]) [y 0])
(get-scroll x y) (get-scroll x y)
(let ([y (max (+ y (let ([y (max (+ y
(if (eq? code 'wheel-up) (* wheel-amt
-1 (if (eq? code 'wheel-up)
1)) -1
1)))
0)]) 0)])
(do-scroll x y #t))))] (do-scroll x y #t))))]
[else [else