EgtCAM5 :

- Correzzione EgtSaveFile Dialog.
- Eliminazione Can da tutti i comandi dei bottoni nel programma.

ProjectPage/PopUpGridPanel/PopUpGridPanelViewModel.vb

@@ -56,7 +56,7 @@ Namespace EgtCAM5
       Public ReadOnly Property CPlaneViewCommand As ICommand
          Get
             If m_cmdCPlaneView Is Nothing Then
-               m_cmdCPlaneView = New RelayCommand(AddressOf CPlaneView, AddressOf CanCPlaneView)
+               m_cmdCPlaneView = New RelayCommand(AddressOf CPlaneView)
             End If
             Return m_cmdCPlaneView
          End Get
@@ -69,13 +69,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.CPLANEVIEW)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanCPlaneView(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
 #End Region ' CPlaneViewCommand
 
 #Region "CPlaneRotateCommand"
@@ -86,7 +79,7 @@ Namespace EgtCAM5
       Public ReadOnly Property CPlaneRotateCommand As ICommand
          Get
             If m_cmdCPlaneRotate Is Nothing Then
-               m_cmdCPlaneRotate = New RelayCommand(AddressOf CPlaneRotate, AddressOf CanCPlaneRotate)
+               m_cmdCPlaneRotate = New RelayCommand(AddressOf CPlaneRotate)
             End If
             Return m_cmdCPlaneRotate
          End Get
@@ -99,13 +92,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.CPLANEROTATE)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanCPlaneRotate(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
 #End Region ' CPlaneRotateCommand
 
 #Region "CPlane3PCommand"
@@ -116,7 +102,7 @@ Namespace EgtCAM5
       Public ReadOnly Property CPlane3PCommand As ICommand
          Get
             If m_cmdCPlane3P Is Nothing Then
-               m_cmdCPlane3P = New RelayCommand(AddressOf CPlane3P, AddressOf CanCPlane3P)
+               m_cmdCPlane3P = New RelayCommand(AddressOf CPlane3P)
             End If
             Return m_cmdCPlane3P
          End Get
@@ -129,13 +115,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.CPLANE3P)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanCPlane3P(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
 #End Region ' CPlane3PCommand
 
 #Region "CPlanePerpObjCommand"
@@ -146,7 +125,7 @@ Namespace EgtCAM5
       Public ReadOnly Property CPlanePerpObjCommand As ICommand
          Get
             If m_cmdCPlanePerpObj Is Nothing Then
-               m_cmdCPlanePerpObj = New RelayCommand(AddressOf CPlanePerpObj, AddressOf CanCPlanePerpObj)
+               m_cmdCPlanePerpObj = New RelayCommand(AddressOf CPlanePerpObj)
             End If
             Return m_cmdCPlanePerpObj
          End Get
@@ -159,13 +138,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.CPLANEPERPOBJ)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanCPlanePerpObj(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
 #End Region ' CPlanePerpObjCommand
 
 #Region "CPlaneObjCommand"
@@ -176,7 +148,7 @@ Namespace EgtCAM5
       Public ReadOnly Property CPlaneObjCommand As ICommand
          Get
             If m_cmdCPlaneObj Is Nothing Then
-               m_cmdCPlaneObj = New RelayCommand(AddressOf CPlaneObj, AddressOf CanCPlaneObj)
+               m_cmdCPlaneObj = New RelayCommand(AddressOf CPlaneObj)
             End If
             Return m_cmdCPlaneObj
          End Get
@@ -189,13 +161,6 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.CPLANEOBJ)
       End Sub
 
-      ''' <summary>
-      ''' Returns always true.
-      ''' </summary>
-      Private Function CanCPlaneObj(ByVal param As Object) As Boolean
-         Return True
-      End Function
-
 #End Region ' CPlaneObjCommand
 
 #End Region    ' COMMANDS