EgtCAM5 1.6x2 :

- modifiche per Gunstock.

ProjectPage/GunStockPanel/GunStockPanelViewModel.vb

@@ -22,12 +22,12 @@ Namespace EgtCAM5
 
       Public ReadOnly Property NewGunStockMsg As String
          Get
-            Return EgtMsg(MSG_DOORS + 4)
+            Return EgtMsg(MSG_GUNSTOCK + 1)
          End Get
       End Property
       Public ReadOnly Property ModifyGunStockMsg As String
          Get
-            Return EgtMsg(MSG_DOORS + 4)
+            Return EgtMsg(MSG_GUNSTOCK + 3)
          End Get
       End Property
 
@@ -37,12 +37,12 @@ Namespace EgtCAM5
 
       Public ReadOnly Property NewGunStockToolTip As String
          Get
-            Return EgtMsg(MSG_DOORS + 4)
+            Return EgtMsg(MSG_GUNSTOCK + 2)
          End Get
       End Property
       Public ReadOnly Property ModifyGunStockToolTip As String
          Get
-            Return EgtMsg(MSG_DOORS + 4)
+            Return EgtMsg(MSG_GUNSTOCK + 4)
          End Get
       End Property
 
@@ -74,7 +74,7 @@ Namespace EgtCAM5
       ''' Execute the Door. This method is invoked by the DoorsCommand.
       ''' </summary>
       Public Sub NewGunStock(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.GUNSTOCKSCRIPT, String.Empty)
+         Application.Msn.NotifyColleagues(Application.GUNSTOCKNEW, String.Empty)
       End Sub
 
 #End Region ' NewGunStockCommand
@@ -97,7 +97,7 @@ Namespace EgtCAM5
       ''' Execute the Door. This method is invoked by the DoorsCommand.
       ''' </summary>
       Public Sub ModifyGunStock(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.GUNSTOCKSCRIPT, String.Empty)
+         Application.Msn.NotifyColleagues(Application.GUNSTOCKMODIF, String.Empty)
       End Sub
 
 #End Region ' ModifyGunStockCommand
@@ -120,12 +120,12 @@ Namespace EgtCAM5
       ''' Execute the Open.  This method is invoked by the OpenCommand.
       ''' </summary>
       Public Shared Sub OpenMruNewGunStock(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.GUNSTOCKSCRIPT, DirectCast(param, String).Replace("__", "_"))
+         Application.Msn.NotifyColleagues(Application.GUNSTOCKNEW, DirectCast(param, String).Replace("__", "_"))
       End Sub
 
 #End Region ' OpenMruNewGunStockCommand
 
-#Region "OpenMruNewGunStockCommand"
+#Region "OpenMruModifyGunStockCommand"
 
       ''' <summary>
       ''' Returns a command that do Open.
@@ -143,7 +143,7 @@ Namespace EgtCAM5
       ''' Execute the Open.  This method is invoked by the OpenCommand.
       ''' </summary>
       Public Shared Sub OpenMruModifyGunStock(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.GUNSTOCKSCRIPT, DirectCast(param, String).Replace("__", "_"))
+         Application.Msn.NotifyColleagues(Application.GUNSTOCKMODIF, DirectCast(param, String).Replace("__", "_"))
       End Sub
 
 #End Region ' OpenMruNewGunStockCommand