From e0ea9ca88135373009463c44c9d24bb459ca3104 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 12 Nov 2001 20:41:11 +0000
Subject: [PATCH] ...

original commit: 6b9faf8c9cbd868ea53970d184f8cc77a4784083
---
 collects/framework/private/frame.ss | 1 +
 1 file changed, 1 insertion(+)

diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss
index c42ab656..a5e7fe75 100644
--- a/collects/framework/private/frame.ss
+++ b/collects/framework/private/frame.ss
@@ -937,6 +937,7 @@
                      [by (box 0)])
                 (let-values ([(cw ch) (send d-canvas get-client-size)])
                   (send d-text position-location pos bx by)
+                  (send d-canvas focus)
                   (send d-canvas scroll-to 
                         (- (unbox bx) (/ cw 2))
                         (- (unbox by) (/ ch 2))