mzscheme

original commit: 5c394c37b38382f0712a666c5799897cc599d540

src/mred/wrap/mred.ss

@@ -654,7 +654,7 @@
 		     (if (and o (send o handles-key-code code))
 			 #f
 			 (let ([objs (container->children panel #f)])
-			   (ormap
+			   (or (ormap
 				(lambda (x)
 				  (and (is-a? x wx:button%)
 				       (send x has-border?)
@@ -662,7 +662,7 @@
 					 (as-exit (lambda () (send x command v)))
 					 #t)))
 				objs)
-			   #t)))]
+			       (not (is-a? o wx-text-editor-canvas%))))))]
 		  [(escape)
 		   (and (is-a? this wx:dialog%)
 			(let ([o (get-focus-window)])