another fix from Ryan, plus one that didn't get committed before

svn: r14479 original commit: 0657fc52cf7680a2f152d7b2195dff99c63d0d20
2009-04-09 21:29:51 +00:00 · 2009-04-09 21:29:51 +00:00 · 237172a3e1
commit 237172a3e1
parent 4fcd7bdedc
1 changed files with 3 additions and 0 deletions
--- a/collects/mred/private/wxme/editor-canvas.ss
+++ b/collects/mred/private/wxme/editor-canvas.ss
@ -184,6 +184,9 @@
  (define xmargin 5)
  (define ymargin 5)

+  (define/public (set-wheel-step v) (set! wheel-amt v))
+  (define/public (get-wheel-step) wheel-amt)
+
  (set! noloop? #t)
  (init parent x y width height
        name style