WIP

MultiTool.Shared/Documents/Document.vb

@@ -5,7 +5,7 @@ Imports MultiTool.Shared.Winline
 Namespace Documents
     Public Class Document
         Public File As FileInfo
-        Public Type As DocumentType
+        Public Property Type As DocumentType
         Public Schema As Schema
         Public Mandator As Mandator
 
@@ -48,29 +48,6 @@ Namespace Documents
         Public Overrides Function Equals(obj As Object) As Boolean
             Return FullName = DirectCast(obj, Document).FullName
         End Function
-
-        '    Public Type As DocumentType
-        '    Public Data As Object
-        '    Public DataOriginal As Object
-        '    Public DataOutput As Object
-        '    Public DataString As String
-
-        '    Public Selected As Boolean = False
-
-
-        '    Public Shared Function GetDocumentTypeFromTemplateName(pTemplateName As String) As DocumentType
-        '        Return DocumentMatch.TypeMatchingTable.
-        '            Where(Function(kv) pTemplateName.Contains(kv.Key)).
-        '            Select(Function(kv) kv.Value).
-        '            FirstOrDefault()
-        '    End Function
-
-        '    Public Shared Function GetDocumentSchemaFromDocumentType(pDocumentType As DocumentType) As Type
-        '        Return DocumentMatch.SchemaMatchingTable.
-        '            Where(Function(kv) pDocumentType = kv.Key).
-        '            Select(Function(kv) kv.Value).
-        '            FirstOrDefault()
-        '    End Function
     End Class
 
 End Namespace