From 46f95d7e2c3543dd22fefd1ae2c91d1e97da7ddf Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 28 Nov 2001 17:47:17 +0000
Subject: [PATCH] ...

original commit: ee912049f388cd943e6cf96765bc6f4bbaea2a0d
---
 collects/framework/private/frame.ss | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss
index 9088d1e0..b62b4ce8 100644
--- a/collects/framework/private/frame.ss
+++ b/collects/framework/private/frame.ss
@@ -880,7 +880,7 @@
         (class editor-canvas%
           (rename [super-on-event on-event])
           (init-field delegate-frame)
-          (inherit get-editor)
+          (inherit get-editor get-dc)
           (define/override (on-event evt)
             (super-on-event evt)
             (when (and delegate-frame
@@ -893,7 +893,9 @@
                                       (send evt get-y))])
                     (send delegate-frame click-in-overview 
                           (send text find-position editor-x editor-y)))))))
-          (super-instantiate ())))
+          (super-instantiate ())
+          ;(send (get-dc) set-scale 1/12 1/12)
+          ))
       
       (define delegatee-text%
         (class text:basic%