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

fixed one of those 'the callbacks are the initial state arent being set up together properly' gui bugs

Browse Source 
svn: r17876
This commit is contained in:
Robby Findler 2010-01-28 21:48:07 +00:00
parent 6848b8f6fe
commit a6d89438a7
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -452,6 +452,8 @@
(define (module-language-selected)
;; need to deselect things in the languages-hier-list at this point.
;(send languages-hier-list select #f)
(send use-chosen-language-rb set-selection #f)
(send use-language-in-source-rb set-selection 0)
(update-gui-based-on-selected-language module-language*language
module-language*get-language-details-panel
module-language*get/set-settings))
@ -727,8 +729,7 @@
(cond
[(equal? language-to-show
module-language*language)
(send use-language-in-source-rb set-selection 0)
(send use-chosen-language-rb set-selection #f)]
(module-language-selected)]
[else
(send use-chosen-language-rb set-selection 0)
(send use-language-in-source-rb set-selection #f)