From 18c24ba295158e9bad3b104fc0d47bd2a4546765 Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Sun, 1 Nov 2015 08:58:05 +0000 Subject: [PATCH] TestEIn 1.6j6 : - aggiunto in EgtInterface.vb il prototipo di EgtTdbIsCurrToolModified. --- EgtInterface.vb | 14 ++++++++++++++ My Project/AssemblyInfo.vb | 4 ++-- 2 files changed, 16 insertions(+), 2 deletions(-) diff --git a/EgtInterface.vb b/EgtInterface.vb index f34d9c5..e908aea 100644 --- a/EgtInterface.vb +++ b/EgtInterface.vb @@ -5494,6 +5494,20 @@ Public Function EgtTdbSaveCurrTool() As Boolean End If End Function + +Private Function EgtTdbIsCurrToolModified_32() As Boolean +End Function + +Private Function EgtTdbIsCurrToolModified_64() As Boolean +End Function +Public Function EgtTdbIsCurrToolModified() As Boolean + If IntPtr.Size = 4 Then + Return EgtTdbIsCurrToolModified_32() + Else + Return EgtTdbIsCurrToolModified_64() + End If +End Function + Private Function EgtTdbSetCurrToolParamInt_32(ByVal nType As Integer, ByVal nVal As Integer) As Boolean End Function diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index e06f751..0efb4e4 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices ' utilizzando l'asterisco (*) come descritto di seguito: ' - - + +