EgtCAM5 :

- aggiunta visualizzazione Estensioni caricate (Beam, Wall, Doors, Gunstock) con versione e direttorio di installazione.

Utility/IniFile.vb

@@ -1,4 +1,5 @@
 Imports System.Collections.ObjectModel
+Imports System.IO
 Imports EgtUILib
 
 Public Module IniFile
@@ -64,10 +65,12 @@ Public Module IniFile
    Friend m_sBeamDirPath As String
    ' path della cartella WALL
    Friend m_sWallDirPath As String
-   ' path della cartella BEALWALL
+   ' path della cartella BEAMWALL
    Friend m_sBeamWallDirPath As String
    ' path della cartella DOORS
    Friend m_sDoorsDirPath As String
+   ' path della cartella GUNSTOCK
+   Friend m_sGunstockDirPath As String
    ' path della cartella Printing3d
    Friend m_sPrinting3dDirPath As String
 
@@ -289,7 +292,13 @@ Public Module IniFile
    End Function
 
    Friend Function IsActiveGunStock() As Boolean
-      Return (IniFile.m_nKeyOptions And KEY_OPT.GUNSTOCK) <> 0 And (GetPrivateProfileInt(S_GUNSTOCK, K_GUNSTOCKENABLE, 0) <> 0)
+      Dim bIsActive As Boolean = (IniFile.m_nKeyOptions And KEY_OPT.GUNSTOCK) <> 0 And (GetPrivateProfileInt(S_GUNSTOCK, K_GUNSTOCKENABLE, 0) <> 0)
+      If bIsActive Then
+          Dim sTemp As String = ""
+          GetPrivateProfileString(S_GUNSTOCK, K_GUNSTOCKEXEC, "", sTemp)
+          m_sGunstockDirPath = Path.GetDirectoryName( sTemp)
+      End If
+      Return bIsActive
    End Function
 
    Friend Function IsKeyEnabledVirtualMilling() As Boolean
@@ -301,4 +310,12 @@ Public Module IniFile
       Return GetPrivateProfileInt(S_SPECIAL, K_SPECIALENABLE, 0) <> 0 AndAlso GetPrivateProfileButton(S_SPECIAL, K_BUTTON & "1", "", btDummy)
    End Function
 
+   Friend Function GetSpecialLuaVersion( sSpecialLuaDir As String, ByRef sVersion As String) As Boolean
+      Dim sExecPath As String = (sSpecialLuaDir & "\Version.lua")
+      If Not EgtLuaExecFile(sExecPath, False) Then Return False
+      If Not EgtLuaGetGlobStringVar("VERSION", sVersion) Then Return False
+      EgtLuaResetGlobVar("VERSION")
+      Return True
+   End Function
+
 End Module