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

when selecting the teaching languages radio box,

Browse Source 
always pick a teaching language

If one hasn't been chosen before, choose the first one
(if one had been chosen before, the code would already
select that one, and we keep that behavior)

closes PR 14452
This commit is contained in:
Robby Findler 2014-04-22 13:13:51 -05:00
parent 8d46df4ba1
commit cfa3d1b733
1 changed files with 21 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
pkgs/drracket-pkgs/drracket/drracket/private/language-configuration.rkt
View File

@ -256,7 +256,8 @@
(define (enter-callback)
(cond [(get-selected-language)
(set! cancelled? #f)
(send dialog show #f)]
(send dialog show #f)
#t]
[else #f]))
;; ok-callback : -> void
@ -608,9 +609,12 @@
(λ (rb evt)
(use-teaching-language-rb-callback))]))
(define (use-teaching-language-rb-callback)
(when most-recent-teaching-languages-hier-list-selection
(select-a-language-in-hierlist teaching-languages-hier-list
(cdr most-recent-teaching-languages-hier-list-selection)))
(cond
[most-recent-teaching-languages-hier-list-selection
(select-a-language-in-hierlist teaching-languages-hier-list
(cdr most-recent-teaching-languages-hier-list-selection))]
[else
(select-first-language-in-hierlist teaching-languages-hier-list)])
(send use-chosen-language-rb set-selection #f)
(send use-language-in-source-rb set-selection #f)
(send use-teaching-language-rb set-selection 0)
@ -1131,6 +1135,19 @@
(send child open)
(loop child (car position) (cdr position)))]))])))]))
(define (select-first-language-in-hierlist hier-list)
(let loop ([hi hier-list])
(for/or ([child (in-list (send hi get-items))])
(cond
[(is-a? child hierarchical-list-compound-item<%>)
(send child open)
(loop child)]
[(is-a? child hieritem-language<%>)
(send child select #t)
#t]
[else
#f]))))
;; docs-callback : -> void
(define (docs-callback)
(void))