Merge pull request #1746 from guillep/removeasStringWithCR

Remove usages of strange string method that should be deprecated

Author: Ducasse

src/Spec2-Core/SpAbstractWidgetPresenter.class.st

@@ -131,10 +131,10 @@ SpAbstractWidgetPresenter class >> documentExampleCode [
 			and: [ method selector = self documentExampleCodeSelector ] ]
 		ifNone: [ ^ nil ].
 
-	^ (exampleMethod sourceCode lines 
+	^ ((exampleMethod sourceCode lines 
 		allButFirst 	"Remove method name"
 		reject: [ :each | each trimLeft beginsWith: '<' ]) "Remove pragmas"
-		asStringWithCr
+		joinUsing: Character cr)
 		trimmed
 ]
 

src/Spec2-Dialogs/SpDialogPresenter.class.st

@@ -78,7 +78,13 @@ SpDialogPresenter class >> documentExampleCode [
 		                 detect: [ :method | method protocolName = #example and: [ method selector = #exampleModal ] ]
 		                 ifNone: [ ^ nil ].
 
-	^ (exampleMethod sourceCode lines allButFirst reject: [ :each | each trimLeft beginsWith: '<' ]) asStringWithCr trimmed "Remove method name" "Remove pragmas"
+	^ ((exampleMethod sourceCode lines
+		"Remove method name"
+		allButFirst
+		"Remove pragmas"
+		reject: [ :each | each trimLeft beginsWith: '<' ])
+		joinUsing: Character cr)
+			trimmed
 ]
 
 { #category : 'documentation' }