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

Fix language config dialog not showing when some languages are disabled

Browse Source
This commit is contained in:
Philippe Mechai 2012-12-05 22:24:23 +01:00 committed by Sam Tobin-Hochstadt
parent 039abedc10
commit 00827a133a
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1176,9 +1176,11 @@
;; remove the newline at the front of the first inlined category (if there) ;; remove the newline at the front of the first inlined category (if there)
;; it won't be there if the module language is at the top. ;; it won't be there if the module language is at the top.
(for ([hier-list (in-list (list other-languages-hier-list teaching-languages-hier-list))]) (for ([hier-list (in-list (list other-languages-hier-list teaching-languages-hier-list))])
(define t (send (car (send hier-list get-items)) get-editor)) (define items (send hier-list get-items))
(unless (null? items)
(define t (send (car items) get-editor))
(when (equal? "\n" (send t get-text 0 1)) (when (equal? "\n" (send t get-text 0 1))
(send t delete 0 1))) (send t delete 0 1))))
(send details-outer-panel stretchable-width #f) (send details-outer-panel stretchable-width #f)
(send details/manual-parent-panel change-children (send details/manual-parent-panel change-children