"I haven't found anything to tell me if the mouse has moved"

Perhaps Tk::MouseGesture could be modified to suit your needs.