From e02eb9c2c1686c5688056d7deb3b9a91dcaf1a3b Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 26 Dec 2011 09:46:38 -0600 Subject: [PATCH] the variable most-recent-languages-hier-list-selection used to be a hierarchical-list-item<%> object, but now it is a list of language names (same information, different data) and one place didn't get updated. Closes PR 12462 --- collects/drracket/private/language-configuration.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/drracket/private/language-configuration.rkt b/collects/drracket/private/language-configuration.rkt index 468fddb43a..d108a0a668 100644 --- a/collects/drracket/private/language-configuration.rkt +++ b/collects/drracket/private/language-configuration.rkt @@ -375,8 +375,9 @@ (define/override (on-select i) (cond [(and i (is-a? i hieritem-language<%>)) - (preferences:set 'drracket:language-dialog:hierlist-default (send (send i get-language) get-language-position)) - (set! most-recent-languages-hier-list-selection i) + (define pos (send (send i get-language) get-language-position)) + (preferences:set 'drracket:language-dialog:hierlist-default pos) + (set! most-recent-languages-hier-list-selection pos) (something-selected i)] [else (non-language-selected)])) @@ -430,8 +431,7 @@ (use-chosen-language-rb-callback))])) (define (use-chosen-language-rb-callback) (when most-recent-languages-hier-list-selection - (send languages-hier-list select - most-recent-languages-hier-list-selection)) + (select-a-language-in-hierlist most-recent-languages-hier-list-selection)) (send use-language-in-source-rb set-selection #f) (send languages-hier-list focus)) (define languages-hier-list-panel (new horizontal-panel% [parent languages-choice-panel]))