EgtCAM5 :

- Migliorie varie.

ProjectPage/OptionPanel/DrawOptionPanel/InputExpander/InputExpanderViewModel.vb

@@ -231,6 +231,9 @@ Namespace EgtCAM5
          Application.Msn.Register(Application.SETINPUTBOXCHECK, Sub(bBoolean As Boolean)
                                                                    SetInputBoxCheck(bBoolean)
                                                                 End Sub)
+         Application.Msn.Register(Application.CHANGEINPUTBOXCHECK, Sub()
+                                                                      ChangeInputBoxCheck()
+                                                                   End Sub)
          Application.Msn.Register(Application.ADDINPUTBOXCOMBO, Sub(AddInputBoxComboParam As AddInputBoxComboParam)
                                                                    AddInputBoxCombo(AddInputBoxComboParam.sText, AddInputBoxComboParam.bSelected)
                                                                 End Sub)
@@ -268,6 +271,11 @@ Namespace EgtCAM5
          Return True
       End Function
 
+      Private Function ChangeInputBoxCheck() As Boolean
+         IsChecked = Not m_IsChecked
+         Return True
+      End Function
+
       Private Function SetInputBoxCheck(ByVal bCheck As Boolean) As Boolean
          IsChecked = bCheck
          Application.Msn.NotifyColleagues(Application.SETLASTBOOLEAN, IsChecked)