Public Class ScriptWindowV

#Region "CONSTRUCTOR"

   Sub New()

      ' La chiamata è richiesta dalla finestra di progettazione.
      InitializeComponent()

      ' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
      Map.SetRefScriptWindowV(Me)
   End Sub

#End Region    ' Constructor

#Region "EVENTS"

   Private Sub EgtMainWindow_PreviewKeyDown(sender As Object, e As KeyEventArgs)
      If e.Key = Key.Escape Then
         Annulla.IsCancel = True
      End If
   End Sub

   Private Sub sNameFile_RichTxBx_TextChanged(sender As Object, e As TextChangedEventArgs)
      Map.refScriptWindowVM.ChangeTextColor()
   End Sub

   Private Sub sNameFile_RichTxBx_SelectionChanged(sender As Object, e As RoutedEventArgs)
      If Not IsNothing(Map.refScriptWindowVM) Then Map.refScriptWindowVM.SetToolbar()
   End Sub

   Private Sub sNameFile_RichTxBx_PreviewKeyDown(sender As Object, e As KeyEventArgs)
      If e.Key = Key.Enter Then
         Map.refScriptWindowVM.InsertText(sNameFile_RichTxBx, vbCrLf)
         e.Handled = True
      End If
   End Sub

#End Region    ' Events

End Class