Tcl - Binding events before everything else

You are viewing an archived Text-only version of the thread. To view this thread in it's original format and/or if you want to reply to this thread please [click here]

Author

Binding events before everything else

Wojciech Kocjan

2005-07-25, 5:35 pm

Hello,

I'm not sure if I am the only one experiencing this, but on my PocketPC
(WM2003SE) I get a lot of Motion events with %y and %Y set to very high
values. My first idea was to filter those out doing:

set bt [bindtags $widget]
if {[lsearch -exact $bt Ignorestupidmotion] < 0} {
set bt [linsert $bt 0 Ignorestupidmotion]
bindtags $widget $bt
puts "BINDTAGS $widget [bindtags $widget] | $bt"
}

Here's the output:
BINDTAGS .canvas Ignorestupidmotion .canvas Canvas . all |
Ignorestupidmotion .canvas Canvas . all

Sponsored Links