I wish it were my solution. It was the user Domen who always gives great answers.
Neat. I was carried away by the elegant implementation of the "While" loop approach. Your solution is a simple fix. Thanks.
Also posted at https://mathematica.stackexchange.com/questions/305439/mousedown-event.
