add launch configuration

Author: jginternational

kratos.gid/kratos.tcl

@@ -154,6 +154,8 @@ proc Kratos::InitGlobalVariables {dir} {
     set Kratos::kratos_private(problemtype_git_hash) 0
     # Place were the logs will be placed
     set Kratos::kratos_private(model_log_folder) ""
+    # Check exec/launch.json
+    set Kratos::kratos_private(launch_configuration) "local"
 
     # Variable to store the Kratos menu items
     set kratos_private(MenuItems) [dict create]
@@ -485,6 +487,11 @@ proc Kratos::Event_BeforeRunCalculation { batfilename basename dir problemtypedi
     }
     set app_run_brake [apps::ExecuteOnCurrentApp BreakRunCalculation]
     if {[write::isBooleanTrue $app_run_brake]} {return "-cancel-"}
+
+    if {[info exists Kratos::kratos_private(launch_configuration)]} {
+        set launch_type $Kratos::kratos_private(launch_configuration)
+        W $launch_type
+    }
 }
 
 proc Kratos::Event_AfterWriteCalculationFile { filename errorflag } {

kratos.gid/scripts/Controllers/Preferences.xml

@@ -19,6 +19,7 @@
             <option value='2' label='2'/>
         </combobox>
         <entrywithbutton name="debug_folder" label="Debug path" variable="debug_folder" buttonimage="folder.png" variablemanager='Kratos::ManagePreferences' buttonfunction="OpenBrowserForDirectory" help='Path to the kratos debug folder. This is placed in the launch.json file for debugging' />
+        <entry name="launch_configuration" label="Launch configuration" variable="launch_configuration" variablemanager='Kratos::ManagePreferences' help='' />
     </labelframe>
 </group>
 

kratos.gid/scripts/Controllers/PreferencesWindow.tcl

@@ -31,10 +31,13 @@ proc Kratos::ManagePreferences { cmd name {value ""}} {
                 "debug_folder" {
                     set ret ""
                 }
+                "launch_configuration" {
+                    set ret "local"
+                }
             }
         }
     }
-    
+
     Kratos::RegisterEnvironment
     spdAux::RequestRefresh
     return $ret
@@ -44,27 +47,27 @@ proc Kratos::ModifyPreferencesWindow { root } {
     variable kratos_private
 
     if {[info exists kratos_private(Path)]} {
-        set findnode [$root find "name" "general"]      
+        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] 
-            CreateWidgetsFromXml::AddAfterName $root "general" $xml_data 
+            set xml_data [GidUtils::ReadFile $xml_preferences_filename]
+            CreateWidgetsFromXml::AddAfterName $root "general" $xml_data
             CreateWidgetsFromXml::UpdatePreferencesWindow
         }
     }
     return 0
 }
 
 proc Kratos::ModifyPreferencesWindowOld { } {
-    set root [CreateWidgetsFromXml::GetPreferencesXml]  
+    set root [CreateWidgetsFromXml::GetPreferencesXml]
     variable kratos_private
 
     if {[info exists kratos_private(Path)]} {
-        set findnode [$root find "name" "general"]   
+        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] 
-            CreateWidgetsFromXml::AddAfterName $root "general" $xml_data 
+            set xml_data [GidUtils::ReadFile $xml_preferences_filename]
+            CreateWidgetsFromXml::AddAfterName $root "general" $xml_data
             CreateWidgetsFromXml::UpdatePreferencesWindow
         }
     }