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

PR 10052

Browse Source 
svn: r13489
This commit is contained in:
Robby Findler 2009-02-07 15:04:46 +00:00
parent 7bcf4e69a5
commit 8cd0fe5e72
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/drscheme/private/language-configuration.ss
View File

@ -511,12 +511,14 @@
(let-values ([(vis-lang vis-settings)
(cond
[(or (not selected-language)
(eq? selected-language language-to-show))
[(and (not selected-language)
(eq? language-to-show language))
(values language-to-show settings-to-show)]
[(and language-to-show settings-to-show)
(values selected-language
(send selected-language default-settings))]
[(eq? selected-language language)
(values language
(if (eq? language language-to-show)
settings-to-show
(send language default-settings)))]
[else (values #f #f)])])
(cond
[(not vis-lang) (void)]

2
collects/drscheme/private/module-language.ss
View File

@ -498,7 +498,7 @@
(define (update-compilation-on-radio-box-visibility)
(send compilation-on-radio-box enable (equal? 0 (send annotations-radio-box get-selection))))
(send collection-paths-lb set '())
(install-collection-paths '(default))
(update-buttons)
(case-lambda