Consider the following .wl
package:
BeginPackage["ColorsIn3DPlot`"];
Begin["MyPrivate`"]
CreatePalette[Manipulate[
Plot3D[Sin[x y], {x, 0, 3}, {y, 0, 3}, ColorFunction -> color,
ImageSize -> {480, 480}],
{color, {"Rainbow", "NeonColors", "BlueGreenYellow"}}],
WindowFloating -> True,
WindowSize -> All,
WindowTitle -> "Nice Plot",
Saveable -> False];
End[];
EndPackage[];
Clicking on ► Run All Code
at the top right corner of the so-called "Package Helper" indeed outputs a palette with the 3D graphics, but no interactivity is enabled.
Can anyone point out the reason to why it is so?
StyleDefinitions -> ""
toCreatePalette
, therefore a problem lies in the defaultyPalette.nb
style. However, this makes the palette window include the top Wolfram Mathematica bar. $\endgroup$