ButtonFunction for grid of custom Buttons
- To: mathgroup at smc.vnet.net
- Subject: [mg116333] ButtonFunction for grid of custom Buttons
- From: JohnH <ununquadium113 at yahoo.com>
- Date: Fri, 11 Feb 2011 04:15:44 -0500 (EST)
Module[{graphics, buttons, labels, myAction}, myAction[x_] := Print["Label: ", x]; labels = FromCharacterCode /@ ((ToCharacterCode["A"][[1]] - 1) + Range[10]); graphics = Graphics[{#, Disk[{0, 0}, 0.1]}] & /@ Take[ColorData[3, "ColorList"], Length[labels]]; buttons = Button[First[#], myAction[#] &, Appearance -> None] & /@ Transpose[{graphics, labels}]; GraphicsGrid[Join[Partition[Riffle[labels, buttons], {8}]], Frame -> None, ImageSize -> 225, Dividers -> {{True, {False, True}}, All}] ] I am trying to use custom Buttons to highlight different parts of a graphic. I want the ButtonFunction for each button to do something with the label associated with the button, but I can't figure out how to do this. The output that I get from the sample if I click "D" above is Label: GraphicsBox[{RGBColor[0.541176,0.713725,0.027451],DiskBox[{0,0},0.1]}] rather than "Label: D" as I want. Any suggestions would be appreciated.