EgtCAM5 :

- Migliorie varie.

ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/LayerTreeView.vb

@@ -11,6 +11,24 @@ Public Class LayerTreeViewItem
       End Get
    End Property
 
+   ''' <summary>
+   ''' Property that determines if the Tool is selected or not
+   ''' </summary>
+   Public Overrides Property IsSelected As Boolean
+      Get
+         Return m_isSelected
+      End Get
+      Set(value As Boolean)
+         If (value <> m_isSelected) Then
+            m_isSelected = value
+            If value Then
+               ' recupero l'Id del nuovo oggetto selezionato
+               Application.Msn.NotifyColleagues(Application.UPDATEOBJINOBJTREE, Me.Id)
+            End If
+         End If
+      End Set
+   End Property
+
    Private m_Items As New ObservableCollection(Of LayerTreeViewItem)
    Public Property Items As ObservableCollection(Of LayerTreeViewItem)
       Get

ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderView.xaml

@@ -10,9 +10,8 @@
             <Ellipse Height="10" Width="10" Fill="{Binding HeaderColor}" />
          </StackPanel>
       </Expander.Header>
-      <StackPanel>
 
-         <TextBox/>
+      <StackPanel>
 
          <UniformGrid Rows="1">
             <Button Content="New Part" Command="{Binding NewPartCommand}"  Height="40"/>

ProjectPage/OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderViewModel.vb

@@ -378,19 +378,6 @@ Namespace EgtCAM5
          End If
       End Sub
 
-      'Private Sub ObjTree_AfterSelect(ByVal sender As Object, ByVal e As TreeViewEventArgs) Handles TreeView1.AfterSelect
-      '   ' verifico che il select derivi da azione utente
-      '   If e.Action = TreeViewAction.Unknown Then
-      '      Return
-      '   End If
-      '   ' recupero l'Id del nuovo oggetto selezionato
-      '   Dim nId As Integer
-      '   If Not Int32.TryParse(e.Node.Name, nId) Then
-      '      Return
-      '   End If
-      '   UpdateObjInObjTree(nId)
-      'End Sub
-
       'Private Sub ObjTree_MouseUp(ByVal sender As Object, e As MouseEventArgs) Handles TreeView1.MouseUp
       '   ' determino Id di eventuale item sotto il mouse
       '   Dim nId As Integer = GDB_ID.NULL