proc detachRes {} {

	global DRcnt

	if {![info exists DRcnt]} {
		set DRcnt 0
	} else {
		incr DRcnt
	}
	set rl [split [.m.o.out get 1.0 end] \n]
	showText .result_$DRcnt "Results" 800x400 "$rl" 

}
