Preferences were missing in load model

Author: jginternational

kratos.gid/kratos.tcl

@@ -82,6 +82,7 @@ proc Kratos::RegisterGiDEvents { } {
 
     # Preferences window
     GiD_RegisterPluginPreferencesProc Kratos::Event_ModifyPreferencesWindow
+    CreateWidgetsFromXml::ClearCachePreferences
 }
 
 proc Kratos::Event_InitProblemtype { dir } {
@@ -200,6 +201,10 @@ proc Kratos::LoadCommonScripts { } {
 }
 
 proc Kratos::Event_LoadModelSPD { filespd } {
+    after 1 [list Kratos::LoadModelSPD $filespd]
+}
+
+proc Kratos::LoadModelSPD { filespd } {
     variable kratos_private
 
     # Event called if a model exists, so close all the windows while tree isn't loaded
@@ -259,13 +264,15 @@ proc Kratos::Event_LoadModelSPD { filespd } {
 
         after 500 {set ::Kratos::kratos_private(model_log_folder) [file join [GiD_Info Project ModelName].gid Logs]}
     }
+
 }
 
 proc Kratos::Event_EndProblemtype { } {
     Kratos::Log "End session"
     # New event system need an unregister
     if {[GidUtils::VersionCmp "14.1.4d"] >= 0 } {
         GiD_UnRegisterEvents PROBLEMTYPE Kratos
+        GiD_UnRegisterPluginPreferencesProc Kratos::Event_ModifyPreferencesWindow
     }
     if {[array exists ::Kratos::kratos_private]} {
         # Close the log and moves them to the folder

kratos.gid/scripts/Controllers/PreferencesWindow.tcl

@@ -42,7 +42,6 @@ proc Kratos::ModifyPreferencesWindow { root } {
 
     if {[info exists kratos_private(Path)]} {
         set findnode [$root find "name" "general"]      
-        
         if { $findnode != "" } {
             set xml_preferences_filename [file join $kratos_private(Path) scripts Controllers Preferences.xml]
             set xml_data [GidUtils::ReadFile $xml_preferences_filename] 

kratos.gid/scripts/Logs.tcl

@@ -19,17 +19,18 @@ proc Kratos::GetLogFilePath { } {
 proc Kratos::InitLog { } {
     variable kratos_private
 
-    if {! $Kratos::kratos_private(allow_logs)} {return ""}
+    if {[info exists Kratos::kratos_private(allow_logs)] && $Kratos::kratos_private(allow_logs)>0} {
 
-    set kratos_private(LogFilename) [clock format [clock seconds] -format "%Y%m%d%H%M%S"].log 
-    set logpath [Kratos::GetLogFilePath]
-    file mkdir [file dirname $logpath]
-    set logfile [open $logpath "a+"];
-    puts $logfile "Kratos Log Session"
-    close $logfile
-    set kratos_private(Log) [list ]
-    
-    Kratos::AutoFlush
+        set kratos_private(LogFilename) [clock format [clock seconds] -format "%Y%m%d%H%M%S"].log 
+        set logpath [Kratos::GetLogFilePath]
+        file mkdir [file dirname $logpath]
+        set logfile [open $logpath "a+"];
+        puts $logfile "Kratos Log Session"
+        close $logfile
+        set kratos_private(Log) [list ]
+        
+        Kratos::AutoFlush
+    }
 }
 
 proc Kratos::Log {msg} {
@@ -79,8 +80,9 @@ proc Kratos::FlushLog { }  {
 }
 
 proc Kratos::AutoFlush {} {
-    if {! $Kratos::kratos_private(allow_logs)} {return ""}
-    after 5000 {Kratos::AutoFlush}
+    if {[info exists Kratos::kratos_private(allow_logs)] && $Kratos::kratos_private(allow_logs)>0} {
+        after 5000 {Kratos::AutoFlush}
+    }
 }
 
 proc Kratos::ViewLog {} {
@@ -96,8 +98,9 @@ if { [GiD_Set SaveGidDefaults] } {
 
 proc Kratos::MoveLogsToFolder {folder {flush_log 1}} {
 
-    if {! $Kratos::kratos_private(allow_logs)} {return ""}
-    if {$flush_log} {FlushLog}
-    if {![file exists $folder]} {file mkdir $folder}
-    file copy -force [Kratos::GetLogFilePath] $folder
+    if {[info exists Kratos::kratos_private(allow_logs)] && $Kratos::kratos_private(allow_logs)>0} {
+        if {$flush_log} {FlushLog}
+        if {![file exists $folder]} {file mkdir $folder}
+        file copy -force [Kratos::GetLogFilePath] $folder
+    }
 }