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"]