From 95d7b45124e425d920b5d155052ba3d6b5f311ee Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 16 Oct 1998 14:25:45 +0000
Subject: [PATCH] .

original commit: 07d50a3a9e860b1f2b846b93113c2558d393621d
---
 src/mred/wrap/mred.ss | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index 54b3e7cf..fb61c4f9 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -565,6 +565,7 @@
 				[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