labels, colors

Manipulate[
Graphics[{Point[u]}, PlotRange -> 2], {{u, {{-1, -1}, {1, 1}}},
Locator, Appearance -> Table[Style[Framed[label], color]],
LocatorAutoCreate -> True}, {label, {"1" -> 1, "2" -> 2},
ControlType -> PopupMenu}, {color, {Red -> "Red", Blue -> "Blue"},
ControlType -> PopupMenu}]

this gives an output of nodes (where you can alt+click for more) that have a label and color from a drop down menu. Next is to assign DIFFERENT labels and colors for the nodes. Perhaps an auto-numbering system would be good.

started with this:

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