--- a/Object.st Mon May 20 10:37:19 1996 +0200
+++ b/Object.st Mon May 20 10:38:24 1996 +0200
@@ -3604,17 +3604,7 @@
"Modified: 7.3.1996 / 19:11:29 / cg"
!
-errorPrintNL
- "{ Pragma: +optSpace }"
-
- "print the receiver followed by a cr on the standard error stream."
-
- ^ self errorPrintNewline
-
- "Modified: 7.3.1996 / 19:12:56 / cg"
-!
-
-errorPrintNewline
+errorPrintCR
"{ Pragma: +optSpace }"
"print the receiver followed by a cr on the standard error stream."
@@ -3625,6 +3615,29 @@
]
"Modified: 7.3.1996 / 19:13:01 / cg"
+ "Created: 20.5.1996 / 10:20:41 / cg"
+!
+
+errorPrintNL
+ "{ Pragma: +optSpace }"
+
+ "print the receiver followed by a cr on the standard error stream.
+ Please use #errorPrintCR - this method exists for backward compatibility."
+
+ ^ self errorPrintCR
+
+ "Modified: 20.5.1996 / 10:24:45 / cg"
+!
+
+errorPrintNewline
+ "{ Pragma: +optSpace }"
+
+ "print the receiver followed by a cr on the standard error stream.
+ Please use #errorPrintCR - this method exists for backward compatibility."
+
+ self errorPrintCR.
+
+ "Modified: 20.5.1996 / 10:24:38 / cg"
!
infoPrint
@@ -3640,7 +3653,7 @@
]
!
-infoPrintNL
+infoPrintCR
"{ Pragma: +optSpace }"
"print the receiver followed by a cr on the standard error stream.
@@ -3649,8 +3662,27 @@
These messages can be turned on/off by 'Object infoPrinting:true/false'"
InfoPrinting ifTrue:[
- self errorPrintNewline
+ self errorPrintCR
]
+
+ "Created: 20.5.1996 / 10:21:28 / cg"
+!
+
+infoPrintNL
+ "{ Pragma: +optSpace }"
+
+ "print the receiver followed by a cr on the standard error stream.
+ This is meant for information messages which are not warnings
+ or fatal messages.
+ These messages can be turned on/off by 'Object infoPrinting:true/false'.
+
+ Please use #infoPrintCR - this method exists for backward compatibility."
+
+ InfoPrinting ifTrue:[
+ self errorPrintCR
+ ]
+
+ "Modified: 20.5.1996 / 10:25:07 / cg"
!
print
@@ -3659,18 +3691,31 @@
self printOn:Stdout
!
-printNL
- "print the receiver followed by a cr on the standard output stream
- - for GNU Smalltalk compatibility"
-
- ^ self printNewline
-!
-
-printNewline
+printCR
"print the receiver followed by a cr on the standard output stream"
self printOn:Stdout.
Stdout cr
+
+ "Created: 20.5.1996 / 10:21:37 / cg"
+!
+
+printNL
+ "print the receiver followed by a cr on the standard output stream
+ This exists for GNU Smalltalk compatibility - please use #printCR."
+
+ ^ self printCR
+
+ "Modified: 20.5.1996 / 10:25:31 / cg"
+!
+
+printNewline
+ "print the receiver followed by a cr on the standard output stream.
+ This exists for backward compatibility - please use #printCR."
+
+ self printCR
+
+ "Modified: 20.5.1996 / 10:25:46 / cg"
!
printOn:aStream
@@ -3910,12 +3955,23 @@
self storeOn:Stdout
!
+storeCR
+ "store the receiver on standard output; append a carriage return."
+
+ self store.
+ Character cr print
+
+ "Created: 20.5.1996 / 10:26:01 / cg"
+ "Modified: 20.5.1996 / 10:26:57 / cg"
+!
+
storeNl
"store the receiver on standard output; append a newline.
- this method is useless, but included for compatibility."
-
- self store.
- Character nl print
+ This method is included for backward compatibility- use #storeCR."
+
+ self storeCR.
+
+ "Modified: 20.5.1996 / 10:26:49 / cg"
!
storeOn:aStream
@@ -4918,7 +4974,7 @@
"
Smalltalk isInitialized ifFalse:[
'confirmation: ' print. aString print.
- 'continue, assuming <yes>' printNL.
+ 'continue, assuming <yes>' printCR.
^ true
].
@@ -4935,7 +4991,7 @@
self confirm:'hello'
"
- "Modified: 18.5.1996 / 15:43:28 / cg"
+ "Modified: 20.5.1996 / 10:28:40 / cg"
!
errorNotify:aString
@@ -4945,7 +5001,7 @@
|info con sender|
Smalltalk isInitialized ifFalse:[
- 'errorNotification: ' print. aString printNL.
+ 'errorNotification: ' print. aString printCR.
^ self
].
@@ -4981,7 +5037,7 @@
self errorNotify:'hello there'
"
- "Modified: 18.5.1996 / 15:43:31 / cg"
+ "Modified: 20.5.1996 / 10:28:45 / cg"
!
information:aString
@@ -5018,7 +5074,7 @@
Use #information: for ignorable messages."
Smalltalk isInitialized ifFalse:[
- 'information: ' print. aString printNL.
+ 'information: ' print. aString printCR.
^ self
].
@@ -5038,7 +5094,7 @@
self notify:'hello there'
"
- "Modified: 18.5.1996 / 15:43:33 / cg"
+ "Modified: 20.5.1996 / 10:28:48 / cg"
!
warn:aString
@@ -5051,7 +5107,7 @@
].
Smalltalk isInitialized ifFalse:[
- 'warning: ' print. aString printNL.
+ 'warning: ' print. aString printCR.
^ self
].
@@ -5081,12 +5137,12 @@
]
"
- "Modified: 18.5.1996 / 15:43:37 / cg"
+ "Modified: 20.5.1996 / 10:28:53 / cg"
! !
!Object class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.122 1996-05-18 15:28:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.123 1996-05-20 08:38:24 cg Exp $'
! !
Object initialize!