Revert "Add new #printOneLineString and related methods"

src/Kernel-Tests/ObjectTest.class.st

@@ -102,31 +102,6 @@ ObjectTest >> testPrintLimitedString [
 	self assert: actual equals: 'an O...etc...'
 ]
 
-{ #category : #'tests-printing' }
-ObjectTest >> testPrintOnOneLine [
-	|ws|
-	ws := String new writeStream.
-	'this is a test' printOnOneLine: ws.
-	self assert: ws contents equals: '''this is a test'''.
-
-]
-
-{ #category : #'tests-printing' }
-ObjectTest >> testPrintOnOneLineString [
-	self 
-		assert: ('this is a test' printOnOneLineString) 
-		equals: '''this is a test'''.
-
-	self 
-		assert: ('this is a', Character cr asString, 'test') printOnOneLineString 
-		equals: '''this is a test'''.
-
-	self 
-		assert: ('this is a', Character lf asString, 'test') printOnOneLineString 
-		equals: '''this is a test'''.
-
-]
-
 { #category : #'tests-printing' }
 ObjectTest >> testPrintString [
 

src/Kernel/Object.class.st

@@ -1703,30 +1703,6 @@ Object >> printOn: aStream [
 		nextPutAll: title
 ]
 
-{ #category : #printing }
-Object >> printOnOneLine: aStream [
-	"Append to the argument, aStream, a sequence of characters that  
-	identifies the receiver, while replacing cr and lf with one space.
-	
-	This is usually called by #printOnOneLineString with a filtering
-	stream, replacing cr and lf with spaces"
-
-	self printOn: aStream.
-]
-
-{ #category : #printing }
-Object >> printOnOneLineString [
-	"Answer a String whose characters are a description of the receiver, 
-	avoiding printing cr and lf"
-
-	|spaces filter|
-	spaces := { Character cr. Character lf }.
-	filter := FilteringStream on: String new writeStream with: [ :c | 
-		(spaces includes: c) ifTrue:[ Character space ] ifFalse:[c] ].
-	self printOnOneLine: filter.
-	^ filter contents
-]
-
 { #category : #printing }
 Object >> printString [
 	"Answer a String whose characters are a description of the receiver.