needed for clean installations

jginternational · jginternational · commit db51b1daa9f2 · 2022-06-08T13:14:14.000+02:00
diff --git a/kratos.gid/scripts/Launch.tcl b/kratos.gid/scripts/Launch.tcl
@@ -43,8 +43,12 @@ proc Kratos::GetPythonExeName { } {
 }
 
 proc Kratos::GetDefaultPythonPath { } {
+    set pat ""
+    catch {
     set py [Kratos::GetPythonExeName]
-    return [exec $py -c "import sys; print(sys.executable)"  2>@1]
+    set pat [exec $py -c "import sys; print(sys.executable)"  2>@1]
+    }
+    return $pat
 }
 
 proc Kratos::pythonVersion {{pythonExecutable "python"}} {

Original file line number	Diff line number	Diff line change
`@@ -43,8 +43,12 @@ proc Kratos::GetPythonExeName { } {`
`43`	`43`	`}`
`44`	`44`
`45`	`45`	`proc Kratos::GetDefaultPythonPath { } {`
	`46`	`+ set pat ""`
	`47`	`+ catch {`
`46`	`48`	`set py [Kratos::GetPythonExeName]`
`47`		`- return [exec $py -c "import sys; print(sys.executable)" 2>@1]`
	`49`	`+ set pat [exec $py -c "import sys; print(sys.executable)" 2>@1]`
	`50`	`+ }`
	`51`	`+ return $pat`
`48`	`52`	`}`
`49`	`53`
`50`	`54`	`proc Kratos::pythonVersion {{pythonExecutable "python"}} {`