Add object dragging in 2D testbed

You may factor both uses: `use rsfml::system::vector2::{Vector2f, Vector2i};`