closes PR 11134

This commit is contained in:
Robby Findler 2010-09-08 17:02:29 -05:00
parent 8fae368376
commit 41e4470f23

View File

@ -1826,7 +1826,7 @@
[min-height (floor (/ (send plt-logo-shiny get-height) 2))])
(new canvas-message%
(parent racketeer-panel)
(label sc-use-language-in-source)
(label (string-constant use-language-in-source))
(color (send the-color-database find-color "blue"))
(callback (λ () (change-current-lang-to (λ (x) (is-a? x drracket:module-language:module-language<%>)))))
(font (get-font #:underlined #t))))