How to add words after a disk?

[yingjianma1955 (steve ma)]

Graphics[{{Orange, Disk[{0, 0}, .1]}, {Black, Disk[{2, 0}, .1]}}] will display two disks.

Is there a way to print “Orange” and “Black” next to the disks in a program? The disk color will come from code. Therefore, I cannot use a textbox to add the word.

Thank you very much.

[jbaldwin (Jim Baldwin)]

Something like the following?

tColor1 = Orange;
tColor2 = Blue;
Graphics[{
  {Orange, Disk[{0, 0}, .1]},
  Text[Style["Orange", tColor1], {0.25, 0}],
  {Black, Disk[{2, 0}, .1]},
  Text[Style["Black", tColor2], {2.25, 0}]
  }]

This produces

[yingjianma1955 (steve ma)]

Thank you