
proc setup_windows_events {sw hwnd} {
    if {[info commands tcl_send_event] == ""} {
	error "This blt_wish binary can't handle Windows"
    }
    bind $sw <ButtonPress>   "tcl_send_event press %b %x %y %s"
    bind $sw <ButtonRelease> "tcl_send_event release %b %x %y %s"
    bind $sw <KeyPress>      "tcl_send_event key %A %x %y %s"
    bind $sw <Motion>        "tcl_send_event motion 0 %x %y %s"
    bind $sw <Configure>     "tcl_send_event exposure 0 0 0 0"
    bind $sw <Visibility>    "tcl_send_event exposure 0 0 0 0"
}
