.

original commit: 07d50a3a9e860b1f2b846b93113c2558d393621d
1998-10-16 14:25:45 +00:00 · 1998-10-16 14:25:45 +00:00 · 95d7b45124
commit 95d7b45124
parent 287b26d3bf
1 changed files with 1 additions and 0 deletions
--- 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