From 0657fc52cf7680a2f152d7b2195dff99c63d0d20 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 9 Apr 2009 21:29:51 +0000
Subject: [PATCH] another fix from Ryan, plus one that didn't get committed
 before

svn: r14479
---
 collects/mred/private/wxme/editor-canvas.ss | 3 +++
 collects/mred/private/wxme/style.ss         | 4 ++--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/collects/mred/private/wxme/editor-canvas.ss b/collects/mred/private/wxme/editor-canvas.ss
index 2fc6df3bbe..eb0c6a25dc 100644
--- 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 
diff --git a/collects/mred/private/wxme/style.ss b/collects/mred/private/wxme/style.ss
index 42d627d63c..7e1666c7bd 100644
--- a/collects/mred/private/wxme/style.ss
+++ b/collects/mred/private/wxme/style.ss
@@ -423,7 +423,7 @@
                 
                 #t))]))))
 
-  (def/public (equal [style-delta% delta-in])
+  (def/public (equal? [style-delta% delta-in])
     (define-syntax-rule (same? fld)
       (and (eq? (-on fld) ((-don fld) delta-in))
            (eq? (-off fld) ((-doff fld) delta-in))))
@@ -943,7 +943,7 @@
                  (and (not (send s get-s-name))
                       (not (send s get-s-join-shift-style))
                       (eq? (send s get-s-base-style) base-style)
-                      (send delta equal (send s get-s-nonjoin-delta))
+                      (send delta equal? (send s get-s-nonjoin-delta))
                       s))
                
                ;; Create style