Mathematica Palettes
- To: mathgroup@smc.vnet.net
- Subject: [mg10767] Mathematica Palettes
- From: Fred & Tina Wissen <starbrst@prairienet.org>
- Date: Thu, 5 Feb 1998 00:58:17 -0500
- Organization: Starburst Shar-Pei
I am trying to write a palette in Mathematica that will change the
format of a cell. I am changing the background, text color, text size
and cell style. I have all working except the cell style. I want to
change it to text from the standard input. Can someone help me out
please!! Please reply to wissen@uiuc.edu
Here is the code I am using:
Cell[
BoxData[
ButtonBox[
RowBox[{"Grading", " ", "Properties"}],
ButtonFunction:>
(SetOptions[
NotebookSelection[SelectedNotebook],
Background -> RGBColor[1, 0, 0],
FontSize -> 16,
FontFamily -> "Times",
What goes here to change the style to text???
-----> Style -> "Text",
FontColor -> RGBColor[ 1, 1, 0]]&)
]
],
"Text",Active->True]
Thank you much for your help.
Fred Wissen
wissen@uiuc.edu