Put Active Interface Elements into Graphics
Mathematica 6 allows arbitrary interface elements to be placed anywhere, even as points in a graphic.
In[1]:=  |  ListPlot[Table[Prime[n], {n, 10}],
PlotMarkers -> VerticalSlider[ImageSize -> Tiny], Frame -> True] |
Out[1]=  |  |