From d8b61030bde029db4cc661833913291c82456b5d Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 3 Jan 2007 16:58:58 +0000 Subject: [PATCH] added start-with-after string constant for use in Chinese svn: r5209 --- collects/drscheme/private/language-configuration.ss | 3 ++- collects/string-constants/english-string-constants.ss | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/drscheme/private/language-configuration.ss b/collects/drscheme/private/language-configuration.ss index b988e113be..572d1b785d 100644 --- a/collects/drscheme/private/language-configuration.ss +++ b/collects/drscheme/private/language-configuration.ss @@ -1776,7 +1776,8 @@ (label (car (last-pair lang))) (color (send the-color-database find-color "blue")) (callback (λ () (change-current-lang-to lang))) - (font (get-font #:underlined #t)))))) + (font (get-font #:underlined #t))) + (new canvas-message% (parent panel2) (label (string-constant start-with-after)))))) ;; get-text-pls : path -> (listof (list* string string (listof string)) ;; gets the questions from an info.ss file. diff --git a/collects/string-constants/english-string-constants.ss b/collects/string-constants/english-string-constants.ss index 9d838f7194..718dd9c9d7 100644 --- a/collects/string-constants/english-string-constants.ss +++ b/collects/string-constants/english-string-constants.ss @@ -954,7 +954,8 @@ please adhere to these guidelines: ; next two are before and after a language (start-with-before "Start with ") - + (start-with-after "") + (seasoned-plt-schemer? "Seasoned PLT Schemer?") (looking-for-standard-scheme? "Looking for standard Scheme?")