"Displaying" the meaning of zero

*To*: mathgroup at smc.vnet.net*Subject*: [mg130349] "Displaying" the meaning of zero*From*: Clif McInnis <c_mcinnis at hotmail.com>*Date*: Wed, 3 Apr 2013 22:53:58 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Delivered-to*: l-mathgroup@wolfram.com*Delivered-to*: mathgroup-newout@smc.vnet.net*Delivered-to*: mathgroup-newsend@smc.vnet.net

I would like to have at least one of these codes work so that when n=0 no disks are displayed but the numeral zero is displayed. Code #1 Manipulate[ Grid[Partition[ Join[Graphics[{Darker[Green], Disk[], Text[Style[#, Orange, "Label", 24], {0, 0}]}] & /@ Range[n], Table["", {9}]], 10], ItemSize -> 3], {{n, 1, "Number\nof Disks"}, 0, 20, 1, Appearance -> "Labeled"}] Code #2 Manipulate[Pane[Row[Table[Graphics[{ Darker[Green], Disk[{0, 0}, .5], Text[Style[numerals[[ r]], Orange, "Label", 24], {0, 0}]}], {r, 1, n}]], {925, 200}, BaseStyle -> {LinebreakAdjustments -> {1., 10, 0, 0, 10}}], {{n, 1, "Number \nof Disks"}, 0, 20, 1}, Initialization :> ( numerals = {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20"};)]

**Follow-Ups**:**Re: "Displaying" the meaning of zero***From:*Bob Hanlon <hanlonr357@gmail.com>