...

original commit: 6b9faf8c9cbd868ea53970d184f8cc77a4784083
2001-11-12 20:41:11 +00:00 · 2001-11-12 20:41:11 +00:00 · e0ea9ca881
commit e0ea9ca881
parent 0b1e6dfeda
1 changed files with 1 additions and 0 deletions
--- 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))