I'm attempting to use CreateDialog to demonstrate a 3D Plot to users who are not Mathematica-ly inclined. Unfortunately, when I try to do so, using something like this piece of code:
CreateDialog[ExpressionCell[Plot3D[Sin[x + y^2], {x, -3, 3}, {y, -2, 2}]]]
the Plot can no longer be rotated, zoomed, or panned. This limits the usefulness of the Dialog, so I'd very much like to fix this. Any suggestions?