MaximumGiDVersion

Author: jginternational

kratos.gid/kratos.tcl

@@ -183,7 +183,7 @@ proc Kratos::InitGlobalVariables {dir} {
     # Is using files modules
     set kratos_private(UseFiles) 0
     # Variables from the problemtype definition (kratos.xml)
-    array set kratos_private [ReadProblemtypeXml [file join $kratos_private(Path) kratos.xml] Infoproblemtype {Name Version CheckMinimumGiDVersion}]
+    array set kratos_private [ReadProblemtypeXml [file join $kratos_private(Path) kratos.xml] Infoproblemtype {Name Version MinimumGiDVersion MaximumGiDVersion}]
 
     variable namespaces
     set namespaces [list ]

kratos.gid/kratos.xml

@@ -5,7 +5,8 @@
     <Name>Kratos</Name>
     <Version>9.4.3</Version>
     <ExecutableVersion></ExecutableVersion>
-    <CheckMinimumGiDVersion>16.1.4d</CheckMinimumGiDVersion>
+    <MinimumGiDVersion>16.1.4d</MinimumGiDVersion>
+    <MaximumGiDVersion>16.1.10d</MaximumGiDVersion>
     <CustomLibAutomatic>0</CustomLibAutomatic>
     <CustomLibNativeGroups>1</CustomLibNativeGroups>
     <ImageFileBrowser>images/ImageFileBrowser.gif</ImageFileBrowser>

kratos.gid/scripts/Utils.tcl

@@ -85,8 +85,8 @@ proc Kratos::CheckProjectIsNew {filespd} {
 proc Kratos::WarnAboutMinimumRecommendedGiDVersion { } {
     variable kratos_private
 
-    if { [GidUtils::VersionCmp $kratos_private(CheckMinimumGiDVersion)] < 0 } {
-        W "Warning: kratos interface requires GiD $kratos_private(CheckMinimumGiDVersion) or later."
+    if { [GidUtils::VersionCmp $kratos_private(MinimumGiDVersion)] < 0 } {
+        W "Warning: kratos interface requires GiD $kratos_private(MinimumGiDVersion) or later."
         if { [GidUtils::VersionCmp 14.0.0] < 0 } {
             W "If you are still using a GiD version 13.1.7d or later, you can still use most of the features, but think about upgrading to GiD 14."
         } {