suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed a bug

Browse Source 
svn: r14909
This commit is contained in:
Robby Findler 2009-05-21 20:50:03 +00:00
parent 5ed62e665b
commit a4d87e926e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/drscheme/drscheme-test-util.ss
View File

@ -373,7 +373,7 @@
;; checks that the language in the drscheme window is set to the given one. ;; checks that the language in the drscheme window is set to the given one.
;; clears the definitions, clicks execute and checks the interactions window. ;; clears the definitions, clicks execute and checks the interactions window.
(define (check-language-level lang-spec) (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)] [interactions (send drs-frame get-interactions-text)]
[definitions-canvas (send drs-frame get-definitions-canvas)]) [definitions-canvas (send drs-frame get-definitions-canvas)])
(fw:test:new-window definitions-canvas) (fw:test:new-window definitions-canvas)