Public Class OptionPanelV

   Private m_OptionPanelVM As OptionPanelVM

#Region "CONSTRUCTOR"

   Sub New()
      ' Funzione che interpreta l'xaml
      InitializeComponent()
      ' Assegno al riferimento locale al VM il VM preso dal DataContext
      m_OptionPanelVM = DirectCast(Me.DataContext, OptionPanelVM)
   End Sub

#End Region    ' CONSTRUCTOR

#Region "EVENTS"

   Public Sub NestingTab_Click(sender As Object, e As MouseButtonEventArgs)
      ' Se non sono in RawPartTab proseguo
      If Tabs.SelectedIndex <> 0 Then Return
      ' Tolgo il fuoco dalle textbox per averne i valori aggiornati e per costringere ad eseguire UpdateTabState
      Keyboard.Focus(Tabs)
      ' Se non consentito passaggio ad altro tab interrompo l'evento
      If Not OmagOFFICEMap.refOptionPanelVM.NestTabIsEnabled Then e.Handled = True
   End Sub

#End Region    ' EVENTS

End Class