EgtCAM5 :

- Migliorie varie.

ProjectPage/OptionPanel/DrawOptionPanel/InputExpander/InputExpanderViewModel.vb

@@ -61,6 +61,7 @@ Namespace EgtCAM5
          End Get
          Set(value As String)
             m_TextBox = value
+            Application.Msn.NotifyColleagues(Application.NOTIFYINPUTTEXT, value)
             OnPropertyChanged("TextBox")
          End Set
       End Property
@@ -95,7 +96,7 @@ Namespace EgtCAM5
          End Get
          Set(value As Boolean)
             If value <> m_IsChecked Then
-               Application.Msn.NotifyColleagues(Application.SETLASTBOOLEAN, IsChecked)
+               Application.Msn.NotifyColleagues(Application.SETLASTBOOLEAN, value)
                m_IsChecked = value
                OnPropertyChanged("IsChecked")
             End If
@@ -116,7 +117,7 @@ Namespace EgtCAM5
       End Property
 
       ' ComboBox fields
-      Private m_ComboItemsList As ObservableCollection(Of String)
+      Private m_ComboItemsList As New ObservableCollection(Of String)
       Public Property ComboItemsList As ObservableCollection(Of String)
          Get
             Return m_ComboItemsList
@@ -134,7 +135,7 @@ Namespace EgtCAM5
          End Get
          Set(value As Integer)
             If value <> m_ComboSelectedIndex Then
-               Application.Msn.NotifyColleagues(Application.SETLASTINTEGER, ComboSelectedIndex)
+               Application.Msn.NotifyColleagues(Application.SETLASTINTEGER, value)
                m_ComboSelectedIndex = value
                OnPropertyChanged("ComboSelectedIndex")
             End If
@@ -175,7 +176,6 @@ Namespace EgtCAM5
 #Region "CONSTRUCTOR"
 
       Sub New()
-         Application.Msn.NotifyColleagues(Application.NOTIFYINPUTTEXT, TextBox)
          RegisterMethodsCall()
       End Sub
 
@@ -231,7 +231,7 @@ Namespace EgtCAM5
       ''' Execute the Point.  This method is invoked by the PointCommand.
       ''' </summary>
       Public Sub Done(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.DONE, TextBox)
+         Application.Msn.NotifyColleagues(Application.DONE, m_TextBox)
       End Sub
 
       ''' <summary>
@@ -284,6 +284,8 @@ Namespace EgtCAM5
             ShowBtnVisibility = Visibility.Visible
          End If
          FocusTextBox = True
+         IsEnabled = True
+         IsExpanded = True
       End Sub