9 lines
184 B
Tcl
Executable File
9 lines
184 B
Tcl
Executable File
proc bgerror err {
|
|
global errorInfo
|
|
set info $errorInfo
|
|
|
|
puts stdout $err
|
|
puts stdout "------------------------- StackTrace ---------------------"
|
|
puts $info
|
|
}
|