fix high CPU usage on some apps

Author: jginternational

kratos.gid/kratos.tcl

@@ -277,9 +277,6 @@ proc Kratos::LoadModelSPD { filespd } {
         # Refresh the cache
         customlib::UpdateDocument
 
-        # Load default files (if any) (file selection values store the filepaths in the spd)
-        spdAux::LoadModelFiles
-
         # Load default intervals (if any)
         spdAux::LoadIntervalGroups
 
@@ -288,6 +285,9 @@ proc Kratos::LoadModelSPD { filespd } {
 
         apps::ExecuteOnCurrentApp LoadModelEvent $filespd
 
+        # Load default files (if any) (file selection values store the filepaths in the spd)
+        spdAux::LoadModelFiles
+
         # Open the tree
         spdAux::OpenTree
 

kratos.gid/scripts/Controllers/ImportFiles.tcl

@@ -22,7 +22,7 @@ proc ::spdAux::LoadModelFiles { {root "" }} {
     }
     set files [$root getElementsByTagName "file"]
     if {[llength $files] > 0} {
-        Kratos::LoadImportFiles
+        #Kratos::LoadImportFiles
         foreach elem $files {
             FileSelector::AddFile [$elem @n]
         }
@@ -38,7 +38,7 @@ proc ::spdAux::SaveModelFile { fileid } {
 }
 
 proc ::spdAux::ProcGetFilesValues { domNode } {
-    Kratos::LoadImportFiles
+    #Kratos::LoadImportFiles
     customlib::UpdateDocument
     spdAux::LoadModelFiles
     lappend listilla $::spdAux::no_file_string