Posted to tcl by mjanssen at Thu Dec 14 10:49:02 GMT 2006view pretty

package require winapi
wm title . hWnd
wm attributes . -topmost 1
wm resizable . 0 0

bind all <ButtonPress> { . configure -cursor crosshair ; .td configure -cursor crosshair}
bind all <ButtonRelease> {set ::coords [window %X %Y] ; . configure -cursor {} ; .td configure -cursor {}}
entry .td -textvariable coords
pack .td -expand 1 -fill x

proc window {x y} {
    set handle [::winapi::WindowFromPoint $x $y]
    return $handle
}

bind . <F5> {console show}