locators, points, appearance

LocatorPane[RandomReal[{-1, 1}, {10, 2}], Graphics[{White, Disk[]}],
Appearance -> Table[Style["####", Hue[h/10]], {h, 10}]]

For this input, where the "####" piece is, if you type ctrl+d a graphics editor comes up and you can actually draw what you want to be displayed in the output.


Manipulate[
LocatorPane[Graphics[{White, Disk[]}],
Appearance -> Style[Framed[x], color]], {color, {Red -> "Red",
Blue -> "Blue"}, ControlType -> PopupMenu}]