Question: Duplicating Mathematica's Locator

How would I create an interactive component similar to the Locator functionality provided in Mathematica? For example, the command in Mathematica

Manipulate[
  Graphics[Polygon[pt], PlotRange -> 2],
  {{pt, {{0, 0}, {1, 0}, {1, 1}, {0, 1}, {1, -1}}}, Locator}
]

creates five Locator objects stored in the variable pt. This example can be found in the Mathematica Documentation Center.

This has been branched into the following page(s):
Please Wait...