From 7a4b70d03e599b88164fb4c038bd1fe61732cdfc Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 16 Oct 1998 14:34:13 +0000
Subject: [PATCH] .

original commit: c7b1cfac102cc573e694f6fd75883b5e7296166a
---
 collects/tests/mred/item.ss | 10 ++++++++--
 src/mred/wrap/mred.ss       |  1 -
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss
index f47433bc..4e1ceaaa 100644
--- a/collects/tests/mred/item.ss
+++ b/collects/tests/mred/item.ss
@@ -175,8 +175,14 @@
 (define active-frame%
   (class-asi frame%
     (private (pre-on void))
-    (override [on-subwindow-event (lambda args (apply pre-on args))]
-	      [on-subwindow-char on-subwindow-event]
+    (rename [super-on-subwindow-event on-subwindow-event]
+	    [super-on-subwindow-char on-subwindow-char])
+    (override [on-subwindow-event (lambda args 
+				    (or (apply pre-on args)
+					(apply super-on-subwindow-event args)))]
+	      [on-subwindow-char (lambda args 
+				   (or (apply pre-on args)
+				       (apply super-on-subwindow-char args)))]
 	      [on-move (lambda (x y) (printf "moved: ~a ~a~n" x y))]
 	      [on-size (lambda (x y) (printf "sized: ~a ~a~n" x y))])
     (public [set-info
diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index fb61c4f9..54b3e7cf 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -565,7 +565,6 @@
 				[normal-move
 				 (lambda ()
 				   (let* ([dests (map object->position (container->children panel o))]
-					  [_ (printf "~a~n" (map (lambda (x) (send (wx->proxy (car x)) get-label)) dests))]
 					  [pos (if o (object->position o) (list 'x 0 0 0 0))]
 					  [o (traverse (cadr pos) (caddr pos) (cadddr pos) (list-ref pos 4)
 						       (case code