made this always type in the definitions window

svn: r2482
2006-03-22 14:53:29 +00:00 · 2006-03-22 14:53:29 +00:00 · f21648204e
commit f21648204e
parent c71a318810
1 changed files with 2 additions and 3 deletions
--- a/collects/drscheme/private/time-keystrokes.ss
+++ b/collects/drscheme/private/time-keystrokes.ss
@ -44,9 +44,8 @@
            (unless (eq? front-frame frame)
              (sleep 1/10)
              (loop (- n 1)))))
-        (let ([win (send frame get-focus-window)])
-          (unless win
-            (error 'time-keystrokes "frame has no focused window"))
+        (let ([win (send frame get-definitions-canvas)])
+          (send win focus)
          (time (send-key-events win chars-to-test))))
      
      (define (send-key-events window chars)