Imports EgtUILib
Imports EgtWPFLib5

Public Class ChooseReferenceWndVM

   Friend Event m_CloseWindow(bDialogResult As Boolean)

   Public Enum References As Integer
      TL = 1
      TR = 2
      BL = 3
      BR = 4
      TC = 5
      ML = 6
      MR = 7
      BC = 8
      MC = 9
   End Enum

   Private m_ReferenceList() As Boolean = {False, False, True, False, False, False, False, False, False}
   Public Property ReferenceList As Boolean()
      Get
         Return m_ReferenceList
      End Get
      Set(value As Boolean())
         m_ReferenceList = value
      End Set
   End Property

   Public Property SelReference As References
      Get
         Return Array.IndexOf(m_ReferenceList, True) + 1
      End Get
      Set(value As References)
         m_ReferenceList(value - 1) = True
      End Set
   End Property

   ' Definizione comandi
   Private m_cmdOk As ICommand

#Region "COMMANDS"

#Region "Ok"

   Public ReadOnly Property Ok_Command As ICommand
      Get
         If m_cmdOk Is Nothing Then
            m_cmdOk = New Command(AddressOf Ok)
         End If
         Return m_cmdOk
      End Get
   End Property

   Public Sub Ok()
      RaiseEvent m_CloseWindow(True)
   End Sub

#End Region ' Ok

#End Region    ' COMMANDS

End Class