EgtCAM5 :

- Migliorie varie.

ProjectPage/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb

@@ -39,6 +39,7 @@ Namespace EgtCAM5
                   CloseSimulation()
                End If
                m_IsExpanded = value
+               Application.Msn.NotifyColleagues(Application.SIMULATIONEXPANDER_GET_ISEXPANDED, value)
                OnPropertyChanged("IsExpanded")
             End If
          End Set
@@ -269,6 +270,9 @@ Namespace EgtCAM5
                                                                       ResetSimulation()
                                                                    End If
                                                                 End Sub)
+         Application.Msn.Register(Application.SIMULATIONEXPANDER_SET_ISEXPANDED, Sub(bValue As Boolean)
+                                                                                    IsExpanded = bValue
+                                                                                 End Sub)
       End Sub
 
 #End Region