From f21648204e527d03934cccd4332afc5e9906741b Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 22 Mar 2006 14:53:29 +0000 Subject: [PATCH] made this always type in the definitions window svn: r2482 --- collects/drscheme/private/time-keystrokes.ss | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/drscheme/private/time-keystrokes.ss b/collects/drscheme/private/time-keystrokes.ss index 70c8402b21..fe9599d718 100644 --- 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)