safety in call

jginternational · jginternational · commit 5a852e0a049d · 2022-08-08T17:00:22.000+02:00
diff --git a/kratos.gid/kratos.tcl b/kratos.gid/kratos.tcl
@@ -521,11 +521,13 @@ proc Kratos::Event_BeforeRunCalculation { batfilename basename dir problemtypedi
 }
 
 proc Kratos::Event_SelectGIDBatFile { dir basename } {
+    set result ""
     if {[info exists Kratos::kratos_private(launch_configuration)]} {
         set launch_mode $Kratos::kratos_private(launch_configuration)
         ::GidUtils::SetWarnLine "Launch mode: $launch_mode"
-        return [Kratos::ExecuteLaunchByMode $launch_mode]
+        catch {set result [Kratos::ExecuteLaunchByMode $launch_mode]} error_msg
     }
+    return $result
 }
 
 proc Kratos::Event_AfterWriteCalculationFile { filename errorflag } {

Original file line number	Diff line number	Diff line change
`@@ -521,11 +521,13 @@ proc Kratos::Event_BeforeRunCalculation { batfilename basename dir problemtypedi`
`521`	`521`	`}`
`522`	`522`
`523`	`523`	`proc Kratos::Event_SelectGIDBatFile { dir basename } {`
	`524`	`+ set result ""`
`524`	`525`	`if {[info exists Kratos::kratos_private(launch_configuration)]} {`
`525`	`526`	`set launch_mode $Kratos::kratos_private(launch_configuration)`
`526`	`527`	`::GidUtils::SetWarnLine "Launch mode: $launch_mode"`
`527`		`- return [Kratos::ExecuteLaunchByMode $launch_mode]`
	`528`	`+ catch {set result [Kratos::ExecuteLaunchByMode $launch_mode]} error_msg`
`528`	`529`	`}`
	`530`	`+ return $result`
`529`	`531`	`}`
`530`	`532`
`531`	`533`	`proc Kratos::Event_AfterWriteCalculationFile { filename errorflag } {`