Tcl/TK: как предотвратить разрыв экрана?

Я возился с холстами в TK, и у меня есть небольшой пример черного прямоугольника, следующего за курсором:

package require Tk
package require Thread
ttk::frame .c
canvas .c.card
.c.card create rectangle 0 0 1000 1000 -fill green
.c.card create rectangle 0 0 100 200 -fill black -tags card
pack .c .c.card -fill both -expand 1
proc moveCard {x y} { .c.card moveto card $x $y  }
set mouseDown 0
bind . <ButtonPress> { set mouseDown 1 }
bind . <ButtonRelease> { set mouseDown 0 }
bind . <Motion> { if { $mouseDown }  {  moveCard %x %y; } }

Однако, когда я быстро перемещаю прямоугольник, он «рвется» — кажется, что положение прямоугольника обновляется в середине рисунка сверху вниз, поэтому верх и низ находятся в разных местах! Насколько я понимаю, это разрыв экрана, который происходит из-за перерисовки событий, не синхронизированных с частотой обновления экрана. Однако я не могу найти, как включить vsync или иначе предотвратить это. Точно ли я определил проблему, и если да, то как ее исправить?