User Portlet User Portlet

Discussions
A test program, perfect in Earlier Version, but not 9. The problem is, how to do it with Mathematica 10 or 9? Needs["PlotLegends`"] g1 = Plot[Sin[x], {x, 0, 2 Pi}]; legend = Join[{Graphics[{Thick, Blue, Dashed, Line[{{0, 2}, {15,...