Flush only after 5 seconds

Author: jginternational

kratos.gid/kratos.tcl

@@ -159,8 +159,6 @@ proc Kratos::InitGlobalVariables {dir} {
     array set kratos_private [ReadProblemtypeXml [file join $kratos_private(Path) kratos.xml] Infoproblemtype {Name Version CheckMinimumGiDVersion}]
     # Version of the kratos executable
     set kratos_private(exec_version) "dev"
-    # Get the exec version
-    Kratos::GetExecVersion
 }
 
 proc Kratos::LoadCommonScripts { } {

kratos.gid/scripts/Logs.tcl

@@ -42,6 +42,7 @@ proc Kratos::Log {msg} {
 
 proc Kratos::FlushLog { }  {
     variable kratos_private
+    W "Hey"
     if {[info exists kratos_private(Log)]} {
         if {[llength $kratos_private(Log)] > 0} {
             set logpath [Kratos::GetLogFilePath]
@@ -60,10 +61,14 @@ proc Kratos::FlushLog { }  {
             set kratos_private(Log) [list ]
         }
     }
-    after 5000 {Kratos::FlushLog}
 
 }
 
+proc Kratos::AutoFlush {} {
+    Kratos::FlushLog
+    after 5000 {Kratos::AutoFlush}
+}
+
 proc Kratos::ViewLog {} {
     package require gid_cross_platform
     FlushLog
@@ -73,6 +78,6 @@ proc Kratos::ViewLog {} {
 #do not save preferences starting with flag gid.exe -c (that specify read only an alternative file)
 if { [GiD_Set SaveGidDefaults] } {
     Kratos::InitLog
-    Kratos::FlushLog
+    Kratos::AutoFlush
 }
 

kratos.gid/scripts/Utils.tcl

@@ -190,6 +190,10 @@ proc Kratos::LoadEnvironment { } {
 # LOGS
 
 proc Kratos::LogInitialData { } {
+    
+    # Get the exec version
+    Kratos::GetExecVersion
+    
     set initial_data [dict create]
     dict set initial_data GiD_version [GiD_Info gidversion]
     dict set initial_data problemtype_git_hash "68418871cff2b897f7fb9176827871b339fe5f91"