From c17872a338c047a1dbc62a087b76938905d6a147 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 25 Jan 2009 13:14:56 +0000 Subject: [PATCH] fixed language printing dialogg labels svn: r13280 --- collects/drscheme/private/language.ss | 2 +- collects/string-constants/danish-string-constants.ss | 2 +- collects/string-constants/english-string-constants.ss | 6 +++++- collects/string-constants/french-string-constants.ss | 2 +- collects/string-constants/german-string-constants.ss | 2 +- collects/string-constants/japanese-string-constants.ss | 2 +- collects/string-constants/portuguese-string-constants.ss | 2 +- collects/string-constants/spanish-string-constants.ss | 2 +- .../traditional-chinese-string-constants.ss | 2 +- 9 files changed, 13 insertions(+), 9 deletions(-) diff --git a/collects/drscheme/private/language.ss b/collects/drscheme/private/language.ss index 02aceb10f5..051a5104b7 100644 --- a/collects/drscheme/private/language.ss +++ b/collects/drscheme/private/language.ss @@ -243,7 +243,7 @@ (string-constant output-style-label) (list (string-constant constructor-printing-style) (string-constant quasiquote-printing-style) - (string-constant write-printing-style)) + (string-constant print-printing-style)) output-panel (λ (rb evt) (let ([on? (not (= (send rb get-selection) 3))]) diff --git a/collects/string-constants/danish-string-constants.ss b/collects/string-constants/danish-string-constants.ss index 22a3753faf..40435e5514 100644 --- a/collects/string-constants/danish-string-constants.ss +++ b/collects/string-constants/danish-string-constants.ss @@ -889,7 +889,7 @@ please adhere to these guidelines: (constructor-printing-style "Konstruktør") (quasiquote-printing-style "Kvasicitering") (write-printing-style "write") - (print-printing-style "current-print") + (print-printing-style "print") (sharing-printing-label "Vis deling i værdier") (use-pretty-printer-label "Indsæt linjeskift i printede værdier") (input-syntax "Input-syntaks") diff --git a/collects/string-constants/english-string-constants.ss b/collects/string-constants/english-string-constants.ss index 85676e530e..e3f3d42a77 100644 --- a/collects/string-constants/english-string-constants.ss +++ b/collects/string-constants/english-string-constants.ss @@ -242,6 +242,10 @@ please adhere to these guidelines: (erase-log-directory-contents "Erase contents of log directory: ~a?") (error-erasing-log-directory "Error erasing log directory contents.\n\n~a\n") + ;; menu items connected to the logger + (show-log "Show Log") + (hide-log "Hide Log") + ;; modes (mode-submenu-label "Modes") (scheme-mode "Scheme mode") @@ -980,7 +984,7 @@ please adhere to these guidelines: (constructor-printing-style "Constructor") (quasiquote-printing-style "Quasiquote") (write-printing-style "write") - (print-printing-style "current-print") + (print-printing-style "print") (sharing-printing-label "Show sharing in values") (use-pretty-printer-label "Insert newlines in printed values") (input-syntax "Input Syntax") diff --git a/collects/string-constants/french-string-constants.ss b/collects/string-constants/french-string-constants.ss index 017ee9b754..82fa1a4a66 100644 --- a/collects/string-constants/french-string-constants.ss +++ b/collects/string-constants/french-string-constants.ss @@ -974,7 +974,7 @@ (constructor-printing-style "Constructeur") (quasiquote-printing-style "Quasiquote") (write-printing-style "write") - (print-printing-style "current-print") + (print-printing-style "print") (sharing-printing-label "Montrer le partage entre valeurs.") (use-pretty-printer-label "Insérer des retours-chariots lors de l'impression des résultats.") (input-syntax "Syntaxe d'entrée") diff --git a/collects/string-constants/german-string-constants.ss b/collects/string-constants/german-string-constants.ss index 2a0aaf85c6..98dd204419 100644 --- a/collects/string-constants/german-string-constants.ss +++ b/collects/string-constants/german-string-constants.ss @@ -880,7 +880,7 @@ (constructor-printing-style "Konstruktor") (quasiquote-printing-style "Quasiquote") (write-printing-style "write") - (print-printing-style "current-print") + (print-printing-style "print") (sharing-printing-label "Zeige Sharing an") (use-pretty-printer-label "Zeilenumbrüche in Ausdruck einfügen") (input-syntax "Eingabesyntax") diff --git a/collects/string-constants/japanese-string-constants.ss b/collects/string-constants/japanese-string-constants.ss index 376c2d2b48..57478214f7 100644 --- a/collects/string-constants/japanese-string-constants.ss +++ b/collects/string-constants/japanese-string-constants.ss @@ -907,7 +907,7 @@ please adhere to these guidelines: (constructor-printing-style "コンストラクタ スタイル") (quasiquote-printing-style "擬似クォート スタイル") (write-printing-style "write スタイル") - (print-printing-style "current-print スタイル") + (print-printing-style "print スタイル") (sharing-printing-label "値の表示に shared 構文を使う (値の共有構造を表示する)") (use-pretty-printer-label "値を表示するときに改行を挿入する") (input-syntax "入力の構文") diff --git a/collects/string-constants/portuguese-string-constants.ss b/collects/string-constants/portuguese-string-constants.ss index fdd0b64994..989e90d4b2 100644 --- a/collects/string-constants/portuguese-string-constants.ss +++ b/collects/string-constants/portuguese-string-constants.ss @@ -865,7 +865,7 @@ please adhere to these guidelines: (constructor-printing-style "Constructor") (quasiquote-printing-style "Quasiquote") (write-printing-style "escrever") - (print-printing-style "print-actual") + ;(print-printing-style "print-actual") ;; this is possibly incorrect now -- it shows up in the 'output syntax' part of the language dialog (sharing-printing-label "Mostrar partilha nos valores") (use-pretty-printer-label "Inserir nova linha nos valores printed") (input-syntax "Sintaxe de Entrada") diff --git a/collects/string-constants/spanish-string-constants.ss b/collects/string-constants/spanish-string-constants.ss index 50c5b642f9..fc8e9412f3 100644 --- a/collects/string-constants/spanish-string-constants.ss +++ b/collects/string-constants/spanish-string-constants.ss @@ -752,7 +752,7 @@ (output-style-label "Estilo de salida") (constructor-printing-style "Constructor") (quasiquote-printing-style "Quasiquote") - (print-printing-style "current-print") + (print-printing-style "print") (write-printing-style "write") (sharing-printing-label "Show sharing in values") (use-pretty-printer-label "Insertar caracteres de nueva línea en valores impresos") diff --git a/collects/string-constants/traditional-chinese-string-constants.ss b/collects/string-constants/traditional-chinese-string-constants.ss index 5ae4839493..2bfe2b369f 100644 --- a/collects/string-constants/traditional-chinese-string-constants.ss +++ b/collects/string-constants/traditional-chinese-string-constants.ss @@ -891,7 +891,7 @@ (constructor-printing-style "构造器") (quasiquote-printing-style "Quasiquote") (write-printing-style "write") - (print-printing-style "current-print") + (print-printing-style "print") (sharing-printing-label "Show sharing in values") (use-pretty-printer-label "print多个对象时自动换行") (input-syntax "输入语法")