Namespace Rework
    Public Class ReworkTraySlotRepository
        Private _slots As List(Of Slot)

        Public Sub New()
            _slots = ReworkTraySlotMapperXML.getDataFromFile()
        End Sub

        Public Function slots() As List(Of Slot)
            Dim tempList As New List(Of Slot)
            For Each huidigSlot As Slot In _slots
                Dim nieuwSlot As New Slot
                nieuwSlot.nummer = huidigSlot.nummer
                nieuwSlot.type = huidigSlot.type
                tempList.Add(nieuwSlot)
            Next

            Return tempList

        End Function

    End Class
End Namespace