Minor refactorying of writer API

repository/OP-XMI/OPXMITest.class.st

@@ -1,7 +1,7 @@
 Class {
 	#name : #OPXMITest,
 	#superclass : #TestCase,
-	#category : 'OP-XMI-Tests'
+	#category : #'OP-XMI-Tests'
 }
 
 { #category : #tests }
@@ -26,6 +26,6 @@ OPXMITest >> testReadWrite [
 	</container>
 </xmi:XMI>'.
     root := OPXMIReader readFrom: in readStream.
-    out := OPXMIWriter writeToString: root.
+    out := OPXMIWriter toString: root.
     self assert: (self normalized: in) equals: (self normalized: out)
 ]

repository/OP-XMI/OPXMIWriter.class.st

@@ -1,23 +1,20 @@
 Class {
 	#name : #OPXMIWriter,
 	#superclass : #Object,
-	#category : 'OP-XMI-Writer'
+	#category : #'OP-XMI-Writer'
 }
 
 { #category : #writing }
-OPXMIWriter class >> write: anXMI to: aStream [
-	^ self new write: anXMI to: aStream
-]
+OPXMIWriter class >> toString: anXMI [
 
-{ #category : #writing }
-OPXMIWriter class >> writeToString: anXMI [
-	^ String streamContents: [ :stream | self write: anXMI to: stream ]
-]
-
-{ #category : #writing }
-OPXMIWriter >> write: anXMI to: aStream [
 	| visitor |
 	visitor := OPXMIWriterVisitor new.
 	visitor visit: anXMI.
-	aStream << visitor contents
+	^ visitor contents
+]
+
+{ #category : #writing }
+OPXMIWriter class >> write: anXMI toStream: aStream [
+
+	aStream << (self toString: anXMI)
 ]