add python path as preferences

Author: jginternational

kratos.gid/scripts/Controllers/Preferences.xml

@@ -20,11 +20,12 @@
         </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' />
         <comboboxframe name="launch_configuration" label="Launch configuration" variable="launch_configuration" variablemanager='Kratos::ManagePreferences' help='' >
-            <option value='Launch via pip' label='Launch via pip'/>
-            <option value='Launch local compiled version' label='Launch local compiled version'/>
+            <option value='Launch via pip' label='Launch via pip'  setactivate="python_path"/>
+            <option value='Launch local compiled version' label='Launch local compiled version'  setactivate="python_path"/>
             <option value='Docker' label='Docker' setactivate="docker_image" />
             <!-- <option value='Custom...' label='Custom...'/> -->
 
+            <entrywithbutton name="python_path" variable="python_path" label="Python path (exe)" variablemanager='Kratos::ManagePreferences'  help='Path to python.exe' buttonimage="folder.png" buttonfunction="GetPythonPath"/>
             <entry name="docker_image" variable="docker_image" label="Docker image" variablemanager='Kratos::ManagePreferences'  help='Name of the Kratos Docker image'/>
         </comboboxframe>
     </labelframe>

kratos.gid/scripts/Controllers/PreferencesWindow.tcl

@@ -38,6 +38,9 @@ proc Kratos::ManagePreferences { cmd name {value ""}} {
                 "docker_image" {
                     set ret "fjgarate/kratos-run"
                 }
+                "python_path" {
+                    set ret [Kratos::GetDefaultPythonPath]
+                }
                 default {
                     set ret 0
                 }

kratos.gid/scripts/Utils.tcl

@@ -152,7 +152,7 @@ proc Kratos::RegisterEnvironment { } {
     #do not save preferences starting with flag gid.exe -c (that specify read only an alternative file)
     if { [GiD_Set SaveGidDefaults] } {
         variable kratos_private
-        set vars_to_save [list DevMode echo_level mdpa_format debug_folder allow_logs launch_configuration]
+        set vars_to_save [list DevMode echo_level mdpa_format debug_folder allow_logs launch_configuration python_path docker_image]
         set preferences [dict create]
         foreach v $vars_to_save {
             if {[info exists kratos_private($v)]} {
@@ -199,7 +199,7 @@ proc Kratos::LoadEnvironment { } {
         # W $data
         # Close the file
         close $fp
-        
+
         # Preferences are written in json format
         foreach {k v} [write::json2dict $data] {
             # W "$k $v"
@@ -322,3 +322,16 @@ proc Kratos::IsDeveloperMode {} {
     return $is_dev
 }
 
+proc Kratos::GetFilePath { var_name type_names_extensions } {
+    set file [MessageBoxGetFilename file read "Get file" "" $type_names_extensions]
+    # set filename [MessageBoxGetFilename file read [_ "Read HDF5 Vibez file"] {} {{{HDF5 Vibez} {.h5 }} {{All files} {.*}}} {} $multiple [list [_ "Import options"] Vibez::MoreImportOptions]]
+    return $file
+}
+
+if { ![GidUtils::IsTkDisabled] } {
+    proc xmlprograms::GetPythonPath { baseframe variable } {
+        set $variable [Kratos::GetFilePath ::Kratos(python_path) {{{python path} {.exe }} {{All files} {.*}}}]
+        return variable
+    }
+}
+