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

make drracket's language dialog cope with the

Browse Source 
absense of all teaching languages a bit better
This commit is contained in:
Robby Findler 2013-08-17 21:13:08 -05:00
parent 908b036347
commit 2a2ea729ee
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -751,6 +751,8 @@
;; construct-details : (union (-> void) #f)
(define construct-details void)
(define any-teaching-language-added? #f)
;; add-language-to-dialog : (instanceof language<%>) -> void
;; adds the language to the dialog
;; opens all of the turn-down tags
@ -763,6 +765,8 @@
(equal? (car positions)
(string-constant teaching-languages))))
(when teaching-language? (set! any-teaching-language-added? #t))
;; don't show the initial language ...
(unless (equal? positions initial-language-position)
(unless (and (list? positions)
@ -1147,6 +1151,13 @@
(send revert-to-defaults-outer-panel stretchable-height #f)
(for-each add-language-to-dialog languages)
(unless any-teaching-language-added?
(send languages-choice-panel change-children
(λ (l)
(remove* (list teaching-languages-hier-list-panel use-teaching-language-rb)
l))))
(define (hier-list-sort-predicate x y)
(cond
[(and (x . is-a? . second-number<%>)