Applescript window placer.