EgtDOORCreator/AssemblyManager/AssemblyName.vb

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
         m_GraphicName = Path.GetFileNameWithoutExtension(m_Name)
      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 &= "*"
         Else
            m_GraphicName = Path.GetFileNameWithoutExtension(m_Name)
         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
         End If
         NotifyPropertyChanged("GraphicName")
      End Set
   End Property

   Private m_GraphicName As String
   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

End Class