Change to folder

Author: jginternational

kratos.gid/exec/compiled.win.bat

@@ -10,7 +10,7 @@ REM ErrorFile: "%2\%1.err"
 DEL "%2\%1.info"
 DEL "%2\%1.err"
 
-@REM set PATH=%3\\exec\\kratos;%3\\exec\\kratos\\libs;%PATH%
+set PATH=%run_kratos_exe%;%run_kratos_exe%\\libs;%PATH%
 
 REM Run Python using the script MainKratos.py
-%run_kratos_exe% .\MainKratos.py > "%2\\%1.info" 2> "%2\\%1.err"
+%run_kratos_exe%\\runkratos .\MainKratos.py > "%2\\%1.info" 2> "%2\\%1.err"

kratos.gid/scripts/Controllers/Preferences.xml

@@ -25,7 +25,7 @@
             <option value='Launch local compiled version' label='Launch local compiled version' setactivate="runkratos_path"/>
             <option value='Docker' label='Docker' setactivate="docker_image" />
             <entrywithbutton name="python_path" variable="python_path" label="Python path (exe)" variablemanager='Kratos::ManagePreferences'  help='Path to python.exe' buttonimage="folder.png" buttonfunction="GetPythonPath"/>
-            <entrywithbutton name="runkratos_path" variable="runkratos_path" label="Kratos path (exe)" variablemanager='Kratos::ManagePreferences'  help='Path to runkratos.exe' buttonimage="folder.png" buttonfunction="GetRunKratosPath"/>
+            <entrywithbutton name="runkratos_path" variable="runkratos_path" label="Kratos path (exe)" variablemanager='Kratos::ManagePreferences'  help='Path to runkratos.exe' buttonimage="folder.png" buttonfunction="OpenBrowserForDirectory"/>
             <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/Utils.tcl

@@ -333,9 +333,5 @@ if { ![GidUtils::IsTkDisabled] } {
         set $variable [Kratos::GetFilePath ::Kratos(python_path) {{{python path} {.exe }} {{All files} {.*}}}]
         return variable
     }
-    proc xmlprograms::GetRunKratosPath { baseframe variable } {
-        set $variable [Kratos::GetFilePath [file join $::Kratos::kratos_private(Path) exec kratos runkratos.exe] {{{run kratos path} {.exe }} {{All files} {.*}}}]
-        return variable
-    }
 }