-modifa a script rimesso richtext

ScriptWindow/ScriptWindowV.xaml.vb

@@ -1,5 +1,7 @@
 Public Class ScriptWindowV
 
+#Region "CONSTRUCTOR"
+
    Sub New()
 
       ' La chiamata è richiesta dalla finestra di progettazione.
@@ -9,4 +11,24 @@
       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)
+      If Not IsNothing(Map.refScriptWindowVM) Then Map.refScriptWindowVM.m_bTextHasChanged = True
+   End Sub
+
+   Private Sub sNameFile_RichTxBx_SelectionChanged(sender As Object, e As RoutedEventArgs)
+      If Not IsNothing(Map.refScriptWindowVM) Then Map.refScriptWindowVM.SetToolbar()
+   End Sub
+
+#End Region    ' Events
+
 End Class