Changed the pickShape procedure