From a658cf4046b2016d07fcda5ea3520480bcd76ec4 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 3 Jan 2008 18:10:43 +0000
Subject: [PATCH] mostly finished the contract library changes

svn: r8195

original commit: 3cf6ed46738360cb84a414423d176e14bf79e803
---
 collects/mred/private/editor.ss | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/collects/mred/private/editor.ss b/collects/mred/private/editor.ss
index 0812ed87..add690a6 100644
--- a/collects/mred/private/editor.ss
+++ b/collects/mred/private/editor.ss
@@ -81,6 +81,20 @@
 		     set-modified set-filename
 		     get-file put-file
 		     get-max-undo-history)
+      (rename-super [super-on-char on-char])
+      (define time 0)
+      (define count 0)
+      (override* [on-char 
+                  (λ (evt) 
+                    (let-values ([(results cpu real gc) 
+                                  (time-apply (λ () (super-on-char evt)) '())])
+                      (set! time (+ real time))
+                      (set! count (+ count 1))
+                      (when (= count 20)
+                        (printf "time ~s\n" time)
+                        (set! count 0)
+                        (set! time 0))
+                      (apply values results)))])
 	    (define canvases null)
 	    (define active-canvas #f)
 	    (define auto-set-wrap? #f)