Tcl Source Code

Artifact f3b5e91cb772729e2e4e5fee1abce6474aa6fc3c:

Attachment "crash.tcl" to ticket [3301634fff] added by tombert 2011-05-13 22:14:27.

---

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