Merge pull request #52 from seandenigris/enh_ma-record-description

[Enh]: Magritte Importer - Make Record Description Configurable

Author: seandenigris

repository/Neo-CSV-Magritte/MACSVImporter.class.st

@@ -6,7 +6,8 @@ Class {
 		'readerClass',
 		'recordClass',
 		'source',
-		'columnNames'
+		'columnNames',
+		'recordMagritteDescription'
 	],
 	#category : #'Neo-CSV-Magritte-Visitors'
 }
@@ -58,7 +59,7 @@ MACSVImporter >> importStream: aStream [
 	| fields |
 	self configureReaderFor: aStream.
 
-	fields := self recordClass new magritteDescription children.
+	fields := self recordMagritteDescription children.
 	self columnNames
 		do: [ :h | 
 			fields
@@ -105,6 +106,18 @@ MACSVImporter >> recordClass: aClass [
 	recordClass := aClass
 ]
 
+{ #category : #'as yet unclassified' }
+MACSVImporter >> recordMagritteDescription [
+
+	^ recordMagritteDescription ifNil: [ recordMagritteDescription := self recordClass new magritteDescription ]
+]
+
+{ #category : #'as yet unclassified' }
+MACSVImporter >> recordMagritteDescription: anMAContainer [
+
+	recordMagritteDescription := anMAContainer
+]
+
 { #category : #accessing }
 MACSVImporter >> source [