Event Logging

[Sun Home | Tcl Plugin | Demos]

Below is a text widget that shows what events are happening as they are occurring:

Source

text .t -relief raised -bd 2 -background yellow
pack .t -fill both -expand y
focus .t
proc Log {string} {
	.t delete 1.0 end
	.t insert insert $string
}
bind .t <Enter> {
	Log "enter %d %f %x %y %X %Y %t"
	focus -force .
}
bind .t <Motion> { Log "motion %x %y %X %Y %t"}
bind .t <Leave> { Log "leave %d %f %x %y %X %Y %t"}
bind .t <Any-Button-1> { Log "button 1 click %x %y %X %Y %s %t"}
bind .t <FocusIn> { Log "focus in"}
bind .t <FocusOut> { Log "focus out"}
bind .t <Any-Key> { Log "any"}

Log "Move the mouse over me"