showCr: -> showCR:
authorClaus Gittinger <cg@exept.de>
Mon, 20 May 1996 10:54:46 +0200
changeset 116 2417857bcf59
parent 115 670eb084fdef
child 117 578814b724ab
showCr: -> showCR:
h_sample_host.rc
private.rc
smalltalk.rc
--- a/h_sample_host.rc	Sat May 11 13:44:35 1996 +0200
+++ b/h_sample_host.rc	Mon May 20 10:54:46 1996 +0200
@@ -11,8 +11,8 @@
  * NNTPSERVER configuration (for newsReader)
  *"
 (OperatingSystem getEnvironment:'NNTPSERVER') isNil ifTrue:[
-    Stdout showCr:'please edit h_sample.rc for NNTPSERVER setup'.
-"/    Stdout showCr:'setting NNTPSERVER to <your-NNTP-host-here>'.
+    Stdout showCR:'please edit h_sample.rc for NNTPSERVER setup'.
+"/    Stdout showCR:'setting NNTPSERVER to <your-NNTP-host-here>'.
 "/    Smalltalk at:#NNTPSERVER put:'<your-NNTP-host-here>'.
 ].
 !
@@ -22,7 +22,7 @@
  * - uncomment the one you have
  *"
 
-Stdout showCr:'configuring printer ...'!
+Stdout showCR:'configuring printer ...'!
 
 "/ PostscriptPrinterStream autoload.
 "/ Smalltalk at:#Printer put:PostscriptPrinterStream.
--- a/private.rc	Sat May 11 13:44:35 1996 +0200
+++ b/private.rc	Mon May 20 10:54:46 1996 +0200
@@ -52,7 +52,7 @@
 
 |whoAmI|
 
-Transcript showCr:'reading keyboard.rc ...'.
+Transcript showCR:'reading keyboard.rc ...'.
 Smalltalk fileIn:'keyboard.rc'.
 
 "/
@@ -108,8 +108,8 @@
 "/     if you think this is too 'childish', remove the line below ...
 "/
 "/
-"/ Transcript showCr:'loading fancy cursors ...'.
-Smalltalk silentFileIn:'../goodies/Cursor-ST80Cursors.chg'.
+"/ Transcript showCR:'loading fancy cursors ...'.
+"/ Smalltalk silentFileIn:'../goodies/Cursor-ST80Cursors.chg'.
 
 
 "/ claus:
@@ -119,7 +119,7 @@
 (whoAmI = 'claus' or:[whoAmI = 'cg']) ifTrue:[
     Compiler warnSTXSpecials:false.
     HistoryManager notNil ifTrue:[
-	Transcript showCr:'activating HistoryManager ...'.
+	Transcript showCR:'activating HistoryManager ...'.
 	HistoryManager activate.
     ]
 ].
--- a/smalltalk.rc	Sat May 11 13:44:35 1996 +0200
+++ b/smalltalk.rc	Mon May 20 10:54:46 1996 +0200
@@ -224,14 +224,14 @@
 "/
 "/ read private (per user) stuff
 "/
-Transcript showCr:'reading private.rc ...'.
+Transcript showCR:'reading private.rc ...'.
 Smalltalk fileIn:'private.rc'.
 
 "/
 "/ if no style was set (in private.rc), use some default
 "/
 View defaultStyle isNil ifTrue:[
-    Transcript showCr:'no style set in rc files - using default'.
+    Transcript showCR:'no style set in rc files - using default'.
     Display hasGreyscales ifTrue:[
 	View defaultStyle:#motif.
     ] ifFalse:[