Introduce fileNamer

src/MicroEd/MDFile.class.st

@@ -1,12 +1,13 @@
 "
-The class MDFile represents a status to know if there is a file or no. 
+I'm a file utilities class that controls how files are named.
 "
 Class {
 	#name : 'MDFile',
 	#superclass : 'Object',
 	#instVars : [
 		'fileReference',
-		'nameOfFileReferenceBeforeSaved'
+		'nameOfFileReferenceBeforeSaved',
+		'fileNamer'
 	],
 	#category : 'MicroEd',
 	#package : 'MicroEd'

src/MicroEd/MDFileNamer.class.st

@@ -0,0 +1,6 @@
+Class {
+	#name : 'MDFileNamer',
+	#superclass : 'Object',
+	#category : 'MicroEd',
+	#package : 'MicroEd'
+}

src/MicroEd/TNTFileNamer.class.st

@@ -0,0 +1,6 @@
+Class {
+	#name : 'TNTFileNamer',
+	#superclass : 'MDFileNamer',
+	#category : 'MicroEd',
+	#package : 'MicroEd'
+}