From 53906344e973bf6f373be3cddacbbc0035c4fd77 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 8 Nov 2005 00:04:09 +0000 Subject: [PATCH] another tweak to the initial, non-language language svn: r1250 --- .../private/language-configuration.ss | 21 ++++++++++++++++--- 1 file changed, 18 insertions(+), 3 deletions(-) diff --git a/collects/drscheme/private/language-configuration.ss b/collects/drscheme/private/language-configuration.ss index f43358a961..24652ce121 100644 --- a/collects/drscheme/private/language-configuration.ss +++ b/collects/drscheme/private/language-configuration.ss @@ -1419,14 +1419,29 @@ (define (not-a-language-message) (define (main) (when (language-still-unchanged?) - (o (string-constant must-choose-language)) + (o (green-snip (string-constant must-choose-language))) (o "\n") - (o (string-constant get-guidance-before)) + (o (green-snip (string-constant get-guidance-before))) (o (new link-snip% [words (string-constant get-guidance-during)] [callback (lambda (snip) (not-a-language-dialog (find-parent-from-snip snip)))])) - (o (string-constant get-guidance-after)))) + (o (green-snip (string-constant get-guidance-after))))) + + (define (green-snip str) + (let ([snp (make-object string-snip% str)]) + (send snp set-style green-style) + snp)) + + (define green-style + (let ([list (editor:get-standard-style-list)] + [green-style-delta (make-object style-delta% 'change-family 'default)]) + (send green-style-delta set-delta-foreground "DarkViolet") + (send green-style-delta set-delta 'change-italic) + (send list + find-or-create-style + (send list find-named-style "Standard") + green-style-delta))) (define (language-still-unchanged?) (let ([rep (drscheme:rep:current-rep)])