New in Wolfram Mathematica 7: New Interface Elements  previous | next 
Use Rounded Corners for Frames
Circle the primes in a list.
In[1]:=

Click for copyable input
Table[If[PrimeQ[i], 

  Framed[i, RoundingRadius -> 20, Background -> LightBlue], i], {i, 1,

   1000, 11}]
Out[1]=