Wolfram Technology Guide: Symbolic Interface Construction  previous | next 
Use Graphics Anywhere in Controls
Mathematica's unified architecture lets you immediately mix graphics, typesetting, and other controls, into any aspect of controls.
In[1]:=

Click for copyable input
TabView[((Show[#, ImageSize -> 40] -> #) &[

     Graphics3D[{Yellow, Opacity[.5], PolyhedronData[#, "Faces"]}, 

      Boxed -> False]]) & /@ Take[PolyhedronData[], {55, 60}]]
Out[1]=