Imports System.IO
Imports EgtWPFLib5

Public Class AssemblyName
   Inherits VMBase

   Private m_Name As String
   Public Property Name As String
      Get
         Return m_Name
      End Get
      Set(value As String)
         m_Name = value
         If m_IsModified Then
            MakeTitle()
         End If
      End Set
   End Property

   Private m_OrigTemplate As String = String.Empty
   Public Property OrigTemplate As String
      Get
         Return m_OrigTemplate
      End Get
      Set(value As String)
         m_OrigTemplate = value
      End Set
   End Property

   Private m_IsModified As Boolean
   Public Property IsModified As Boolean
      Get
         Return m_IsModified
      End Get
      Set(value As Boolean)
         m_IsModified = value
         If m_IsModified Then
            If Not m_GraphicName.Contains("*") Then m_GraphicName &= "*"
            ' immagine con asterisco
            Map.refProjectManagerVM.IsModifiedImage = "/Resources/TopCommandBar/IsModify.png"
         Else
            m_GraphicName = Path.GetFileNameWithoutExtension(m_Name)
            ' immagine senza asterisco
            Map.refProjectManagerVM.IsModifiedImage = "/Resources/TopCommandBar/Save.png"
         End If
         'If OptionModule.m_SingleDoor AndAlso Map.refMainWindowVM.SelectedPage <> MainWindowVM.ListPageEnum.nHardwarePage AndAlso
         '   Not IsNothing(Map.refMainWindowVM.ProjectNameMsg) Then
         '   Dim sTitle As String = m_Name
         '   If m_GraphicName.Contains("*") Then sTitle &= "*"
         '   Map.refMainWindowVM.ProjectNameMsg = sTitle
         'ElseIf Not OptionModule.m_SingleDoor AndAlso Map.refMainWindowVM.SelectedPage <> MainWindowVM.ListPageEnum.nHardwarePage AndAlso
         '   Not IsNothing(Map.refMainWindowVM.ProjectNameMsg) Then
         '   Dim sTitle As String = Path.GetDirectoryName(m_Name)
         '   Map.refMainWindowVM.ProjectNameMsg = sTitle
         'End If
         MakeTitle()
         NotifyPropertyChanged("GraphicName")
      End Set
   End Property

   Private m_GraphicName As String = String.Empty
   Public Property GraphicName As String
      Get
         Return m_GraphicName
      End Get
      Set(value As String)
         m_GraphicName = value
      End Set
   End Property

   Private m_SelAssembly As New Assembly
   Public Property SelAssembly As Assembly
      Get
         Return m_SelAssembly
      End Get
      Set(value As Assembly)
         m_SelAssembly = value
         Map.refAssemblyPageVM.NotifyPropertyChanged("CurrAssembly")
      End Set
   End Property

   Private Sub MakeTitle()
      If OptionModule.m_SingleDoor AndAlso Map.refMainWindowVM.SelectedPage <> MainWindowVM.ListPageEnum.nHardwarePage AndAlso
            Not IsNothing(Map.refMainWindowVM.ProjectNameMsg) Then
         Dim sTitle As String = m_Name
         If m_GraphicName.Contains("*") Then sTitle &= "*"
         Map.refMainWindowVM.ProjectNameMsg = sTitle
      ElseIf Not OptionModule.m_SingleDoor AndAlso Map.refMainWindowVM.SelectedPage <> MainWindowVM.ListPageEnum.nHardwarePage AndAlso
            Not IsNothing(Map.refMainWindowVM.ProjectNameMsg) Then
         Dim sTitle As String = Path.GetDirectoryName(m_Name)
         Map.refMainWindowVM.ProjectNameMsg = sTitle
      End If
   End Sub

End Class