help please with a non-working V6 palette
- To: mathgroup at smc.vnet.net
- Subject: [mg81970] help please with a non-working V6 palette
- From: rob <josh2499 at hotmail.com>
- Date: Mon, 8 Oct 2007 00:01:43 -0400 (EDT)
Wizards all, I hate to bother you folks but since Mathematica has
only menus and no useful (to me at least) palettes, my life
was vastly improved when some kind soul helped me get the
following palette working in V5. (I slogged thru V3 and V4
not knowing palettes existed, if they did.)
But alas the color change buttons do not work (amazingly,
the 3rd button does work even though "EvaluateNotebook" is
unknown to V6 according to its help files).
Could someone please offer a suggestion on how to make the
first two buttons work in V6? I've spent many hours trying
things with no improvement. Ultimately, I'd like to add more
buttons here for other procedures which ruin my wrists
working thru menus.
Thanks in advance,
Cell[BoxData[{
ButtonBox["SetTextBlue",
Active->True,
BaseStyle->"Evaluate",
ButtonFunction:>FrontEndExecute[{
FrontEndToken[
FrontEnd`InputNotebook[], "FontColor",
"RGBColor[0,0,1]"]}],
ButtonNote->"SetTextBlue ",
Evaluator->Automatic], "\n",
ButtonBox["SetTextRed",
Active->True,
BaseStyle->"Evaluate",
ButtonFunction:>FrontEndExecute[{
FrontEndToken[
FrontEnd`InputNotebook[], "FontColor",
"RGBColor[1,0,0]"]}],
ButtonNote->"SetTextBlue ",
Evaluator->Automatic], "\n",
ButtonBox[
RowBox[{"Notebook", " ", "evaluation"}],
Active->True,
BaseStyle->"Evaluate",
ButtonFunction:>FrontEndTokenExecute["EvaluateNotebook"],
ButtonNote->"Evaluation ",
Evaluator->Automatic]}], "Input"]