EgtCAM5 :

- Migliorie varie.

ProjectPage/OptionPanel/DrawOptionPanel/InfoExpander/InfoExpanderViewModel.vb

@@ -26,11 +26,25 @@ Namespace EgtCAM5
          Set(value As String)
             If value <> m_InfoBox Then
                m_InfoBox = value
+               If value <> String.Empty Then
+                  IsEnabled = True
+               Else
+                  IsEnabled = False
+               End If
                OnPropertyChanged("InfoBox")
             End If
          End Set
       End Property
 
+      Sub New()
+         Application.Msn.Register(Application.UPDATEOBJDATAINOBJTREE, Sub(Id As Integer)
+                                                                         UpdateObjDataInObjTree(Id)
+                                                                      End Sub)
+         Application.Msn.Register(Application.SETINFOBOX, Sub(sString As String)
+                                                             InfoBox = sString
+                                                          End Sub)
+      End Sub
+
       Private Sub UpdateObjDataInObjTree(ByVal nId As Integer)
          ' recupero il tipo del nuovo oggetto
          Dim nType As Integer = EgtGetType(nId)