From 920169a63a8c8b563c32fd623655393d3beda415 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 26 Jan 2008 14:37:55 +0000 Subject: [PATCH] made memory limits be on by default and improved 'killed' dialog to turn up the limits svn: r8424 original commit: 288fb780296e5dccd8fcfc34833b631c1a839246 --- 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)