From 1be502ed798e58cb743250485581ea99d85cd5b2 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 2 Jan 2011 09:55:14 -0600 Subject: [PATCH] fixed a bug that Eli noticed in the initial state of the language dialog --- collects/drracket/private/language-configuration.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/drracket/private/language-configuration.rkt b/collects/drracket/private/language-configuration.rkt index 7c01ebf78b..bb607e23aa 100644 --- a/collects/drracket/private/language-configuration.rkt +++ b/collects/drracket/private/language-configuration.rkt @@ -954,11 +954,13 @@ (open-current-language) (send languages-hier-list min-client-width (text-width (send languages-hier-list get-editor))) (send languages-hier-list min-client-height (text-height (send languages-hier-list get-editor))) - (when get/set-selected-language-settings - (get/set-selected-language-settings settings-to-show)) (when details-shown? (do-construct-details)) (update-show/hide-details) + (when get/set-selected-language-settings + ;; this call to get/set-selected-language-settings has to come after the call to do-construct-details above + ;; because do-construct-details sets all of the controls to the language's default settings + (get/set-selected-language-settings settings-to-show)) (size-discussion-canvas in-source-discussion-editor-canvas) (values (λ () selected-language)