Imports System.ComponentModel

Public Class PartDoor
   Implements INotifyPropertyChanged

   Private m_Door As Part
   Public Property Door As Part
      Get
         Return m_Door
      End Get
      Set(value As Part)
         m_Door = value
      End Set
   End Property

   Private m_IsChecked As Boolean
   Public Property IsChecked As Boolean
      Get
         Return m_IsChecked
      End Get
      Set(value As Boolean)
         m_IsChecked = value
         m_Door.IsActive = IsChecked
      End Set
   End Property
   Public Sub SetIsChecked(bIsChecked As Boolean)
      IsChecked = bIsChecked
      m_Door.IsActive = IsChecked
      NotifyPropertyChanged("IsChecked")
      Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.IsModified = True
   End Sub

   Private m_IsVisible As Visibility
   Public Property IsVisible As Visibility
      Get
         Return m_IsVisible
      End Get
      Set(value As Visibility)
         m_IsVisible = value
      End Set
   End Property

   Public ReadOnly Property Type As String
      Get
         Return Door.TypePart
      End Get
   End Property

   Public Event PropertyChanged(sender As Object, e As PropertyChangedEventArgs) Implements INotifyPropertyChanged.PropertyChanged

   Public Sub NotifyPropertyChanged(propName As String)
      RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propName))
   End Sub

End Class