From 00827a133a3d9d5c9dc02e8e14b72f7f803f5594 Mon Sep 17 00:00:00 2001 From: Philippe Mechai Date: Wed, 5 Dec 2012 22:24:23 +0100 Subject: [PATCH] Fix language config dialog not showing when some languages are disabled --- collects/drracket/private/language-configuration.rkt | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/drracket/private/language-configuration.rkt b/collects/drracket/private/language-configuration.rkt index 4ecdcaaa1c..4a8858c2d2 100644 --- a/collects/drracket/private/language-configuration.rkt +++ b/collects/drracket/private/language-configuration.rkt @@ -1176,9 +1176,11 @@ ;; 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. (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)) - (when (equal? "\n" (send t get-text 0 1)) - (send t delete 0 1))) + (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)) + (send t delete 0 1)))) (send details-outer-panel stretchable-width #f) (send details/manual-parent-panel change-children