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

fixed PR 7716

Browse Source 
svn: r1442
This commit is contained in:
Robby Findler 2005-11-30 00:01:48 +00:00
parent 3e23ef92cb
commit f7e15f0be6
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -517,13 +517,18 @@
(set! language-details-panel language-details-panel-real)
(set! real-get/set-settings get/set-settings))
(cond
[(equal? (send (or selected-language language-to-show) get-language-position)
(send language get-language-position))
(get/set-settings settings-to-show)
(send details-panel active-child language-details-panel)]
[else
(get/set-settings (send language default-settings))]))))
(let-values ([(vis-lang vis-settings)
(if selected-language
(values selected-language
(send selected-language default-settings))
(values language-to-show settings-to-show))])
(cond
[(equal? (send vis-lang get-language-position)
(send language get-language-position))
(get/set-settings vis-settings)
(send details-panel active-child language-details-panel)]
[else
(get/set-settings (send language default-settings))])))))
(send item set-number number)
(when second-number