-aggiunto svg per script

-sistemato dizionario
-sistemato rimozione del testo su invio

ScriptWindow/ScriptWindowV.xaml.vb

@@ -1,4 +1,6 @@
-Public Class ScriptWindowV
+Imports System.Text.RegularExpressions
+
+Public Class ScriptWindowV
 
 #Region "CONSTRUCTOR"
 
@@ -22,13 +24,20 @@
    End Sub
 
    Private Sub sNameFile_RichTxBx_TextChanged(sender As Object, e As TextChangedEventArgs)
-      If Not IsNothing(Map.refScriptWindowVM) Then Map.refScriptWindowVM.m_bTextHasChanged = True
+      sNameFile_RichTxBx.Selection.ApplyPropertyValue(TextElement.ForegroundProperty, Brushes.Purple)
    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