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

make sure the framework tests run with the proper environment

Browse Source
This commit is contained in:
Robby Findler 2013-01-26 07:38:53 -06:00
parent 88404f3b1f
commit e43583c444
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/tests/framework/racket.rkt
View File

@ -111,6 +111,7 @@
`(let* ([t (new racket:text%)] `(let* ([t (new racket:text%)]
[f (new frame% [label ""] [width 600] [height 600])] [f (new frame% [label ""] [width 600] [height 600])]
[ec (new editor-canvas% [parent f] [editor t])]) [ec (new editor-canvas% [parent f] [editor t])])
(preferences:set 'framework:fixup-parens #t)
(preferences:set 'framework:automatic-parens ,auto-parens?) (preferences:set 'framework:automatic-parens ,auto-parens?)
(send f reflow-container) (send f reflow-container)
(send t insert ,initial-text) (send t insert ,initial-text)