Visualize a tree: Difference between revisions

== Opener view ==

Here's another way to display a tree. The triangles open/close when clicked on.

<lang Mathematica>

OpenerView[{1, Column@{OpenerView[{2, Column@{OpenerView[{4, 7}, True], 5}}, True],

OpenerView[{3, OpenerView[{TraditionalForm[Cos[x]], Plot[Cos[x], {x, 0, 10}, ImageSize -> 150]},

True]}, True]}}, True]

</lang>