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
         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