From 380a68dc367bb7482d68d05f3b53d154d45da29d Mon Sep 17 00:00:00 2001
From: Dario Sassi <dario.s@egaltech.com>
Date: Fri, 23 Oct 2015 08:02:47 +0000
Subject: [PATCH] TestEIn 1.6j2 : - aggiornata interfaccia.

---
 EgtInterface.vb            | 56 ++++++++++++++++++++++++++++++++++++++
 My Project/AssemblyInfo.vb |  4 +--
 2 files changed, 58 insertions(+), 2 deletions(-)

diff --git a/EgtInterface.vb b/EgtInterface.vb
index a23242f..b7c6888 100644
--- a/EgtInterface.vb
+++ b/EgtInterface.vb
@@ -5339,6 +5339,62 @@ Public Function EgtShowOnlyTable(ByVal bVal As Boolean) As Boolean
    End If
 End Function
 
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSimStart")>
+Private Function EgtSimStart_32() As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSimStart")>
+Private Function EgtSimStart_64() As Boolean
+End Function
+Public Function EgtSimStart() As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtSimStart_32()
+   Else
+      Return EgtSimStart_64()
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSimMove")>
+Private Function EgtSimMove_32() As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSimMove")>
+Private Function EgtSimMove_64() As Boolean
+End Function
+Public Function EgtSimMove() As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtSimMove_32()
+   Else
+      Return EgtSimMove_64()
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSimSetStep")>
+Private Function EgtSimSetStep_32(ByVal dStep As Double) As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSimSetStep")>
+Private Function EgtSimSetStep_64(ByVal dStep As Double) As Boolean
+End Function
+Public Function EgtSimSetStep(ByVal dStep As Double) As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtSimSetStep_32(dStep)
+   Else
+      Return EgtSimSetStep_64(dStep)
+   End If
+End Function
+
+<DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtSimStop")>
+Private Function EgtSimStop_32() As Boolean
+End Function
+<DllImport(EgtIntDll64, CharSet:=CharSet.Unicode, EntryPoint:="EgtSimStop")>
+Private Function EgtSimStop_64() As Boolean
+End Function
+Public Function EgtSimStop() As Boolean
+   If IntPtr.Size = 4 Then
+      Return EgtSimStop_32()
+   Else
+      Return EgtSimStop_64()
+   End If
+End Function
+
 
 '---------- Scene --------------------------------------------------------------
 <DllImport(EgtIntDll32, CharSet:=CharSet.Unicode, EntryPoint:="EgtInitScene")>
diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb
index 5b52d82..35260c0 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:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.6.10.1")> 
-<Assembly: AssemblyFileVersion("1.6.10.1")> 
+<Assembly: AssemblyVersion("1.6.10.2")> 
+<Assembly: AssemblyFileVersion("1.6.10.2")>