From a4d87e926ece38b020aad3d4fe1652415a8e212a Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 21 May 2009 20:50:03 +0000 Subject: [PATCH] fixed a bug svn: r14909 --- collects/tests/drscheme/drscheme-test-util.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/drscheme/drscheme-test-util.ss b/collects/tests/drscheme/drscheme-test-util.ss index 9f2b27519d..7112f0c6ac 100644 --- a/collects/tests/drscheme/drscheme-test-util.ss +++ b/collects/tests/drscheme/drscheme-test-util.ss @@ -373,7 +373,7 @@ ;; checks that the language in the drscheme window is set to the given one. ;; clears the definitions, clicks execute and checks the interactions window. (define (check-language-level lang-spec) - (let* ([drs-frame (get-top-level-focus-window)] + (let* ([drs-frame (wait-for-drscheme-frame)] [interactions (send drs-frame get-interactions-text)] [definitions-canvas (send drs-frame get-definitions-canvas)]) (fw:test:new-window definitions-canvas)