New in Wolfram Mathematica 6: Unification of Graphics, Text & Controls  previous | next 
Put Active Interface Elements into Graphics
Mathematica 6 allows arbitrary interface elements to be placed anywhere, even as points in a graphic.
In[1]:=

Click for copyable input
ListPlot[Table[Prime[n], {n, 10}], 

 PlotMarkers -> VerticalSlider[ImageSize -> Tiny], Frame -> True]
Out[1]=