console show
package require Thread
## Perform initial Selftest, load calibration data, etc.

proc crash {} {
    set ::tid [thread::create {thread::wait}]
    puts $::tid
    thread::send $::tid {
	package require Itcl
	namespace import itcl::*
	source d:/crash/socket_crash.itcl
	source d:/crash/util.tcl
	set obj [socket_crash "#auto"]
    }
    thread::release $::tid
}

after idle crash

