From f0fccf74bb26a070e5dcfdee135a140a1952398e Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 28 Jun 2000 19:39:13 +0000
Subject: [PATCH] .

original commit: d1e5f330843616eac4b88226ddc4a46b30dfe87e
---
 collects/tests/mred/item.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss
index c2187c7f..b8f666fb 100644
--- a/collects/tests/mred/item.ss
+++ b/collects/tests/mred/item.ss
@@ -497,6 +497,8 @@
   (send ip2 set-label "Sub-sub panel")
   (add-testers2 "Sub-sub-panel" ip2)
   
+  (make-object text-field% #f ip2 void "start focus here")
+
   (when prev-frame
     (add-disable "Previous Tester Frame" prev-frame ep2))
   
@@ -550,7 +552,6 @@
     (add-change-label "Vert Gauge" gv lp2 #f OTHER-LABEL)
     (add-change-label "Text" txt lp2 #f OTHER-LABEL)
     
-
     (let* ([items (list sh sv
 			gh gv
 			; cmt cmi