"TeachScheme!" -> "Program by Design" in DrRacket

2010-11-25 22:08:40 -05:00 · 2010-11-25 22:08:40 -05:00 · be2ea96cc8
commit be2ea96cc8
parent 4842c70885
14 changed files with 16 additions and 16 deletions
--- a/collects/drracket/private/app.rkt
+++ b/collects/drracket/private/app.rkt
@ -369,9 +369,9 @@
               (λ (x y)
                 (send-url url)))))])
    (add (string-constant plt-homepage) "http://racket-lang.org/")
-    (add (string-constant teachscheme!-homepage) "http://www.teach-scheme.org/")
-    (add (string-constant how-to-design-programs) "http://www.htdp.org/")
-    
+    (add (string-constant pbd-homepage) "http://programbydesign.org/")
+    (add (string-constant how-to-design-programs) "http://htdp.org/")
+
    (for-each (λ (tool)
                (cond [(drracket:tools:successful-tool-url tool) 
                       =>
--- a/collects/string-constants/danish-string-constants.rkt
+++ b/collects/string-constants/danish-string-constants.rkt
@ -133,7 +133,7 @@ please adhere to these guidelines:
  (tool-web-sites "Tool Web Sites")   ;; menu item title
  (plt-homepage "Racket")
  (how-to-use-scheme "How to Use Scheme") ;; title of a book.
-  (teachscheme!-homepage "TeachScheme!") ;; probably this should be a `word' in all languages
+  (pbd-homepage "Program by Design")
  
  ;;; bug report form
  (cancel-bug-report? "Fortryd afsendelse af fejlrapport?")
--- a/collects/string-constants/dutch-string-constants.rkt
+++ b/collects/string-constants/dutch-string-constants.rkt
@ -33,7 +33,7 @@
 (web-materials "Verwante Web Sites") ;; menu item title
 (plt-homepage "Racket")
 (how-to-use-scheme "How to Use Scheme") ;; title of a book.
- (teachscheme!-homepage "TeachScheme!") ;; probably this should be a `word' in all languages
+ (pbd-homepage "Program by Design")

 ;;; bug report form
 (cancel-bug-report? "Melden defect afbreken?")
--- a/collects/string-constants/english-string-constants.rkt
+++ b/collects/string-constants/english-string-constants.rkt
@ -135,7 +135,7 @@ please adhere to these guidelines:
 (tool-web-sites "Tool Web Sites")   ;; menu item title
 (plt-homepage "Racket")
 (how-to-use-scheme "How to Use Scheme") ;; title of a book.
- (teachscheme!-homepage "TeachScheme!") ;; probably this should be a `word' in all languages
+ (pbd-homepage "Program by Design")

 ;;; bug report form
 (cancel-bug-report? "Cancel Bug Report?")
--- a/collects/string-constants/french-string-constants.rkt
+++ b/collects/string-constants/french-string-constants.rkt
@ -135,7 +135,7 @@
  (tool-web-sites "Sites web d'outils")   ;; menu item title
  (plt-homepage "Racket")
  (how-to-use-scheme "How to Use Scheme") ;; title of a book.
-  (teachscheme!-homepage "TeachScheme!") ;; probably this should be a `word' in all languages
+  (pbd-homepage "Program by Design")
  
  ;;; bug report form
  (cancel-bug-report? "Annuler la soumission du rapport de bogue ?")
--- a/collects/string-constants/german-string-constants.rkt
+++ b/collects/string-constants/german-string-constants.rkt
@ -37,7 +37,7 @@
 (tool-web-sites "Web-Seiten mit Tools")
 (plt-homepage "Racket")
 (how-to-use-scheme "How to Use Scheme")
- (teachscheme!-homepage "TeachScheme!")
+ (pbd-homepage "Program by Design")

 ;;; bug report form
 (cancel-bug-report? "Bug-Report verwerfen?")
--- a/collects/string-constants/japanese-string-constants.rkt
+++ b/collects/string-constants/japanese-string-constants.rkt
@ -135,7 +135,7 @@ please adhere to these guidelines:
 (tool-web-sites "ツールのウェブサイト")   ;; menu item title
 (plt-homepage "Racket")
 (how-to-use-scheme "How to Use Scheme") ;; title of a book.
- (teachscheme!-homepage "TeachScheme!") ;; probably this should be a `word' in all languages
+ (pbd-homepage "Program by Design")

 ;;; bug report form
 (cancel-bug-report? "バグ報告を中止しますか？")
--- a/collects/string-constants/korean-string-constants.rkt
+++ b/collects/string-constants/korean-string-constants.rkt
@ -53,7 +53,7 @@
 (tool-web-sites "참고 사이트")   ;; menu item title
 (plt-homepage "Racket")
 (how-to-use-scheme "How to Use Scheme") ;; title of a book.
- (teachscheme!-homepage "TeachScheme!") ;; probably this should be a `word' in all languages
+ (pbd-homepage "Program by Design")

 ;;; bug report form
 (cancel-bug-report? "오류 보고를 취소하시겠습니까?")
--- a/collects/string-constants/portuguese-string-constants.rkt
+++ b/collects/string-constants/portuguese-string-constants.rkt
@ -135,7 +135,7 @@ please adhere to these guidelines:
 (tool-web-sites "Sítios Web de Ferramentas")   ;; menu item title
 (plt-homepage "Racket")
 (how-to-use-scheme "Como Usar o Scheme") ;; title of a book.
- (teachscheme!-homepage "AprenderScheme!") ;; probably this should be a `word' in all languages
+ (pbd-homepage "Program by Design")

 ;;; bug report form
 (cancel-bug-report? "Cancelar relatório de erro?")
--- a/collects/string-constants/russian-string-constants.rkt
+++ b/collects/string-constants/russian-string-constants.rkt
@ -135,7 +135,7 @@ please adhere to these guidelines:
 (tool-web-sites "Web-сайты установленных инструментов")   ;; menu item title
 (plt-homepage "Racket")
 (how-to-use-scheme "Как использовать Scheme") ;; title of a book.
- (teachscheme!-homepage "TeachScheme!") ;; probably this should be a `word' in all languages
+ (pbd-homepage "Program by Design")

 ;;; bug report form
 (cancel-bug-report? "Отменить отправку отчета об ошибках?")
--- a/collects/string-constants/simplified-chinese-string-constants.rkt
+++ b/collects/string-constants/simplified-chinese-string-constants.rkt
@ -62,7 +62,7 @@
  (tool-web-sites "Tools网站")   ;; menu item title
  (plt-homepage "Racket")
  (how-to-use-scheme "How to Use Scheme") ;; title of a book.
-  (teachscheme!-homepage "TeachScheme!") ;; probably this should be a `word' in all languages
+  (pbd-homepage "Program by Design")
  
  ;;; bug report form
  (cancel-bug-report? "取消程序错误报告？")
--- a/collects/string-constants/spanish-string-constants.rkt
+++ b/collects/string-constants/spanish-string-constants.rkt
@ -43,7 +43,7 @@
 (tool-web-sites "Sitios de Web de Herramientas")   ;; menu item title
 (plt-homepage "Racket")
 (how-to-use-scheme "Cómo Usar Scheme")
- (teachscheme!-homepage "TeachScheme!")
+ (pbd-homepage "Program by Design")
 
 ;;; bug report form
 (cancel-bug-report? "¿Cancelar el reporte de problemas?")
--- a/collects/string-constants/traditional-chinese-string-constants.rkt
+++ b/collects/string-constants/traditional-chinese-string-constants.rkt
@ -61,7 +61,7 @@
  (tool-web-sites "Tools网站")   ;; menu item title
  (plt-homepage "Racket")
  (how-to-use-scheme "How to Use Scheme") ;; title of a book.
-  (teachscheme!-homepage "TeachScheme!") ;; probably this should be a `word' in all languages
+  (pbd-homepage "Program by Design")
  
  ;;; bug report form
  (cancel-bug-report? "取消程序错误报告？")
--- a/collects/string-constants/ukrainian-string-constants.rkt
+++ b/collects/string-constants/ukrainian-string-constants.rkt
@ -135,7 +135,7 @@ please adhere to these guidelines:
 (tool-web-sites "Web-сайти встановлених інструментів")   ;; menu item title
 (plt-homepage "Racket")
 (how-to-use-scheme "Як використовувати Scheme") ;; title of a book.
- (teachscheme!-homepage "TeachScheme!") ;; probably this should be a `word' in all languages
+ (pbd-homepage "Program by Design")

 ;;; bug report form
 (cancel-bug-report? "Скасувати відправлення звіту про помилки?")