From daa8753387583a3fe5fde5918fc50e361ecff7db Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 9 Mar 1999 19:53:23 +0000
Subject: [PATCH] .

original commit: b0eb1f793774a33cb608db27675f6f7bfac3b063
---
 src/mred/wrap/mred.ss | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index f917a352..76befde9 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -671,7 +671,7 @@
       ;            contents.  Each direction is handled
       ;            independently.
       [on-size
-       (lambda (width height)
+       (lambda (bad-width bad-height)
 	 (wx:queue-callback resized #t))])
 
     (public
@@ -1053,8 +1053,8 @@
 		       (as-exit
 			(lambda ()
 			  (send (get-proxy) on-drop-file f)))))]
-      [on-size (lambda (w h)
-		 (super-on-size w h)
+      [on-size (lambda (bad-w bad-h)
+		 (super-on-size bad-w bad-h)
 		 ; Delay callback to make sure X structures (position) are updated, first
 		 (queue-window-callback
 		  this
@@ -1481,7 +1481,10 @@
 	   [(#\tab #\return escape) (not single-line-canvas?)]
 	   [else (not meta?)]))])
     (public
-      [on-tab-in (lambda () (send (wx->mred this) on-tab-in))]
+      [on-tab-in (lambda () 
+		   (let ([mred (wx->mred this)])
+		     (when mred
+		       (send mred on-tab-in))))]
       [set-single-line (lambda () (set! single-line-canvas? #t))]
       [is-single-line? (lambda () single-line-canvas?)]
       [set-line-count (lambda (n)