Merge pull request #74 from moosetechnology/propose-more-configuratio…

…n-option

add setter for outptStream

src/FAST-Core-Visitor/FASTTExporter.trait.st

@@ -10,7 +10,8 @@ Trait {
 		'operatorsPrecedence',
 		'expressionContextOperator',
 		'outputStream',
-		'indentLevel'
+		'indentLevel',
+		'indentSize'
 	],
 	#category : #'FAST-Core-Visitor'
 }
@@ -143,6 +144,18 @@ FASTTExporter >> indentLevel [
 	^ indentLevel ifNil: [ indentLevel := 0 ]
 ]
 
+{ #category : #outputting }
+FASTTExporter >> indentSize [
+
+	^  indentSize ifNil: [ indentSize := 2 ]
+]
+
+{ #category : #accessing }
+FASTTExporter >> indentSize: anObject [
+
+	indentSize := anObject
+]
+
 { #category : #outputting }
 FASTTExporter >> indented: aPrintable [
 
@@ -226,8 +239,7 @@ FASTTExporter >> outputExpression: aBlock withOperator: operator [
 FASTTExporter >> outputIndentPrefix [
 	"prints indentation spaces"
 
-	self spaces: (self indentLevel * 2)
-
+	self spaces: self indentLevel * self indentSize
 ]
 
 { #category : #outputting }
@@ -237,6 +249,12 @@ FASTTExporter >> outputStream [
 	^outputStream ifNil: [ outputStream := WriteStream on: '' ]
 ]
 
+{ #category : #outputting }
+FASTTExporter >> outputStream: anOutputStream [
+
+	^ outputStream := anOutputStream
+]
+
 { #category : #precedence }
 FASTTExporter >> outputTopLevelExpression: aBlock [
 	"Execute aBlock to output an expression.