From a6d89438a7d345dc50aecd6edad17a5cc0bacde5 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 28 Jan 2010 21:48:07 +0000 Subject: [PATCH] fixed one of those 'the callbacks are the initial state arent being set up together properly' gui bugs svn: r17876 --- collects/drscheme/private/language-configuration.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/drscheme/private/language-configuration.ss b/collects/drscheme/private/language-configuration.ss index d1ba66798e..637dd15f9b 100644 --- a/collects/drscheme/private/language-configuration.ss +++ b/collects/drscheme/private/language-configuration.ss @@ -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)