Tag Info

New answers tagged

7

If you want full flexibility you should try EventHandler and graphics primitives. If you can decipher the following example you will get the idea: color = Black; positions = Position[DiskMatrix[5], 1]; disks = {color, Disk[#, 0.4]} & /@ positions; eventHandler[item : {c_, obj_: Disk[p_, _]}] := {c, EventHandler[obj, "MouseClicked" :> (disks = ...


5

Step 1 As a very quick example of how one might start, with the limitation of only one "type" available: convert[Grid[m_?MatrixQ, ___]] := m[[All, All, 1]] Defer[convert]@Grid[ConstantArray[RadioButton[], {4, 7}], Spacings -> {0.2, 0}] Which outputs: You then make a selection: And evaluate it (the output), yielding: {{False, False, False, ...


3

Not pretty but works. The trick is to inject Unique string to the box so it can be found later in whatever you wish to have in that cell. Cell expression with replaced BouttonBox is then overwritting button's parent cell. buttonEvaluate2 = Function[expr, Button["Evaluate", #; SelectionMove[EvaluationCell[], All, Cell]; ...



Top 50 recent answers are included