Tcl HomeTcl Home Hosted by

Google SiteSearch

Text Widget Entry Area

Event Logging

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


text .t -bd 1 -background yellow -highlightthickness 0
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"