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

the variable most-recent-languages-hier-list-selection used

Browse Source 
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
This commit is contained in:
Robby Findler 2011-12-26 09:46:38 -06:00
parent 3a1df23be6
commit e02eb9c2c1
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/drracket/private/language-configuration.rkt
View File

@ -375,8 +375,9 @@
(define/override (on-select i) (define/override (on-select i)
(cond (cond
[(and i (is-a? i hieritem-language<%>)) [(and i (is-a? i hieritem-language<%>))
(preferences:set 'drracket:language-dialog:hierlist-default (send (send i get-language) get-language-position)) (define pos (send (send i get-language) get-language-position))
(set! most-recent-languages-hier-list-selection i) (preferences:set 'drracket:language-dialog:hierlist-default pos)
(set! most-recent-languages-hier-list-selection pos)
(something-selected i)] (something-selected i)]
[else [else
(non-language-selected)])) (non-language-selected)]))
@ -430,8 +431,7 @@
(use-chosen-language-rb-callback))])) (use-chosen-language-rb-callback))]))
(define (use-chosen-language-rb-callback) (define (use-chosen-language-rb-callback)
(when most-recent-languages-hier-list-selection (when most-recent-languages-hier-list-selection
(send languages-hier-list select (select-a-language-in-hierlist most-recent-languages-hier-list-selection))
most-recent-languages-hier-list-selection))
(send use-language-in-source-rb set-selection #f) (send use-language-in-source-rb set-selection #f)
(send languages-hier-list focus)) (send languages-hier-list focus))
(define languages-hier-list-panel (new horizontal-panel% [parent languages-choice-panel])) (define languages-hier-list-panel (new horizontal-panel% [parent languages-choice-panel]))