Implement the beginnings of scrolling via dragging.

r? @metajack