From ecba4949b4286fe7d1b9a2cc263d2d54fe07ff59 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 2 Dec 2005 21:57:58 +0000 Subject: [PATCH] bring up-to-date with v300 svn: r1500 --- collects/help/private/manuals.ss | 2 +- collects/help/servlets/howtouse.ss | 18 +++++++++--------- collects/help/servlets/resources.ss | 3 +-- collects/help/servlets/resources/maillist.ss | 14 +++++++------- collects/help/servlets/scheme/what.ss | 10 +++++----- 5 files changed, 23 insertions(+), 24 deletions(-) diff --git a/collects/help/private/manuals.ss b/collects/help/private/manuals.ss index 88bff4617a..3ee7d9541d 100644 --- a/collects/help/private/manuals.ss +++ b/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 "/")]) diff --git a/collects/help/servlets/howtouse.ss b/collects/help/servlets/howtouse.ss index 31b3b360a1..b5b1cc3b8f 100644 --- a/collects/help/servlets/howtouse.ss +++ b/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...") - " menu item from the " - (tt "Language") - " menu to change the language.")))) \ No newline at end of file + (B "Choose Language...") + " menu item from the " + (B "Language") + " menu to change the language.")))) \ No newline at end of file diff --git a/collects/help/servlets/resources.ss b/collects/help/servlets/resources.ss index 33aee2bb67..7f50ad9b89 100644 --- a/collects/help/servlets/resources.ss +++ b/collects/help/servlets/resources.ss @@ -19,8 +19,7 @@ (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, " + " based at Northeastern University, the University of Utah, " "Brown University, and the University of Chicago. " "Here are some links related to our activities." (P) diff --git a/collects/help/servlets/resources/maillist.ss b/collects/help/servlets/resources/maillist.ss index 2fdb315986..6cfde9d259 100644 --- a/collects/help/servlets/resources/maillist.ss +++ b/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 " - "uso de PLT Scheme, envía un mensaje a la lista " + "Si tienes problemas con la instalación o preguntas sobre el " + "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), " - "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 " + "Para reducir la recepción de mensajes no deseados (SPAM), " + "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 " (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.")))) diff --git a/collects/help/servlets/scheme/what.ss b/collects/help/servlets/scheme/what.ss index b03756038c..7cb40be17f 100644 --- a/collects/help/servlets/scheme/what.ss +++ b/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.")))) \ No newline at end of file + (B "Language") " menu.")))) \ No newline at end of file