bring up-to-date with v300

svn: r1500

collects/help/private/manuals.ss

@@ -131,7 +131,7 @@
   
   ; manual is doc collection subdirectory, e.g. "mred"
   (define (main-manual-page manual)
-    (let* ([entry (assoc manual known-docs)]
+    (let* ([entry (assoc (string->path manual) known-docs)]
 	   [name (or (and entry (cdr entry))
                      manual)]
 	   [href (string-append "/doc/" manual "/")])

collects/help/servlets/howtouse.ss

@@ -29,13 +29,13 @@
          "1) Navigate the Help Desk information pages by "
          "clicking on hyperlinks.")
        (UL 
-        (LI  "The " (B  (TT  ,(string-constant home))) " button "
+        (LI  "The " (B   ,(string-constant home)) " button "
              "at the top of the page always takes "
              "you back to the starting page.")
-        (LI  "The " (B  (TT  "Manuals")) " link "
+        (LI  "The " (B  "Manuals") " link "
              " displays a list "
              " of manuals and other documentation.")
-        (LI  "The " (B  (TT  "Send a bug report")) 
+        (LI  "The " (B   "Send a bug report")
              " link "
              "allows you to submit bug reports to PLT."))
        (P)
@@ -43,11 +43,11 @@
        (A ((NAME "search")))
        ,(color-highlight
          "2) Search for terms using the " 
-         `(B  (TT  "Find docs for"))  
+         `(B  "Find docs for")
          " field at the bottom of Help Desk.")
        (UL  
         (LI  "Enter one or more terms into the " 
-             (B  (TT  "Find docs for")) " field.")
+             (B   "Find docs for") " field.")
         (LI  "Click the " (B  "Search") " button "
              "(or hit Enter) to start a search, "
              "or choose the " (B "Feeling Lucky") " menu item.")
@@ -76,7 +76,7 @@
        (p)
        "If you open Help Desk inside DrScheme, the search results are "
        "filtered based on the language you are using. Use " 
-            (tt "Choose Language...")
+       (B "Choose Language...")
        " menu item from the "
-            (tt "Language")
+       (B "Language")
        " menu to change the language."))))

collects/help/servlets/resources.ss

@@ -19,7 +19,6 @@
        (P)
        "DrScheme is created by "
        (A ((HREF "http://www.plt-scheme.org/") (TARGET "_top")) "PLT") 
-       ", the Programming Languages Team "
        " based at Northeastern University, the University of Utah, "
        "Brown University, and the University of Chicago. "
        "Here are some links related to our activities."

collects/help/servlets/resources/maillist.ss

@@ -61,18 +61,18 @@
        (A ((NAME "mail-es") (VALUE "Spanish mailing lists")))
        (A ((NAME "mail-es2") (VALUE "Lista de Correo")))
        (B "Lista de Correo") (BR)
-       "Si tienes problemas con la instalación o preguntas sobre el "
+       "Si tienes problemas con la instalación o preguntas sobre el "
-       "uso de PLT Scheme, envía un mensaje a la lista "
+       "uso de PLT Scheme, envía un mensaje a la lista "
        (BLOCKQUOTE 
         (A ((HREF "mailto:plt-scheme-es@list.cs.brown.edu")) "plt-scheme-es@list.cs.brown.edu"))
-       "Para reducir la recepción de mensajes no deseados (SPAM), "
+       "Para reducir la recepción de mensajes no deseados (SPAM), "
-       "hemos adoptado la política de que sólo los suscriptores a la lista "
+       "hemos adoptado la política de que sólo los suscriptores a la lista "
-       "pueden enviar mensajes. Para suscribirte, visita la página de Web "
+       "pueden enviar mensajes. Para suscribirte, visita la página de Web "
        (BLOCKQUOTE
         (A ((HREF "http://list.cs.brown.edu/mailman/listinfo/plt-scheme-es/")
             (TARGET "_top")) "http://list.cs.brown.edu/mailman/listinfo/plt-scheme-es/"))
-       " o envía un mensaje a "
+       " o envía un mensaje a "
        (BLOCKQUOTE
         (A ((HREF "mailto:plt-scheme-es-request@list.cs.brown.edu")) "plt-scheme-es-request@list.cs.brown.edu"))
        " con la palabra `help' en el asunto o en el cuerpo de tu mensaje. "
-       "Recibirás un mensaje de regreso con instrucciones."))))
+       "Recibirás un mensaje de regreso con instrucciones."))))

collects/help/servlets/scheme/what.ss

@@ -43,7 +43,7 @@
        "The following dialects are specifically designed for "
        "teaching computer science.  In DrScheme's "
        (A ((HREF "/servlets/scheme/what.ss#lang-sel")) "language selection menu")
-       ", they are found under the heading " (B (TT "How to Design Programs")) "."
+       ", they are found under the heading " (B "How to Design Programs") "."
        (UL  
         (LI 
          (A ((NAME "beg") (VALUE "Beginning Student language"))) 
@@ -84,7 +84,7 @@
        "In DrScheme's "
        (A ((HREF "/servlets/scheme/what.ss#lang-sel")) "language selection menu")
        ", the following languages "
-       "are found under the heading " (B (TT "PLT")) ":"
+       "are found under the heading " (B "PLT") ":"
        (UL
         (LI  
          ,(standout-text "Textual (MzScheme)")
@@ -101,7 +101,7 @@
          " includes the " (standout-text "Textual (MzScheme)") " language "
          "and adds a graphical toolbox, "
          "described in "
-         ,(main-manual-page "mred"))
+         ,(main-manual-page "mred") ".")
         (LI
          ,(standout-text "Pretty Big")
          " is a superset of the "
@@ -134,6 +134,6 @@
        (A ((NAME "lang-sel") (VALUE "language, setting")))
        "DrScheme's default language is Beginning Student. "
        "To change the language, select the " 
-       (B (TT  "Set Language...")) 
+       (B  "Choose Language...")
        " item in the " 
-       (B (TT "Language")) " menu."))))
+       (B "Language") " menu."))))