Palette Question
- To: mathgroup at smc.vnet.net
- Subject: [mg42885] Palette Question
- From: Peter Breitfeld <phbrf at t-online.de>
- Date: Fri, 1 Aug 2003 01:25:54 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
I created a Palette in the following way:
[*** snipp ***]
Notebook[{
Cell[BoxData[GridBox[{
{
ButtonBox["RealOnlyOn",
ButtonData:>"RealOnlyOn[]"]},
{
ButtonBox["RealOnlyOff",
ButtonData:>"RealOnlyOff[]"]},
{
ButtonBox["RealTime3DEin",
ButtonData:>"<<RealTime3D`"]},
{
ButtonBox["RealTime3DAus",
ButtonData:>"<<Default3D`"]}
},
RowSpacings->0,
ColumnSpacings->0,
GridDefaultElement:>ButtonBox[ "\\[Placeholder]"]]], NotebookDefault,
CellFrame->False,
CellMargins->{{Inherited, Inherited}, {0, Inherited}},
Evaluatable->True,
CellGroupingRules->"InputGrouping",
CellHorizontalScrolling->True,
PageBreakAbove->True,
PageBreakWithin->False,
GroupPageBreakWithin->False,
CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}},
CellFrameColor->RGBColor[0.6, 0.2, 0],
DefaultFormatType->DefaultInputFormatType,
LineSpacing->{1.25, 0},
AutoItalicWords->{},
FormatType->InputForm,
ScriptMinSize->9,
ShowStringCharacters->True,
NumberMarks->True,
CounterIncrements->"Input",
StyleMenuListing->None,
FontFamily->"Courier",
FontWeight->"Bold",
Background->RGBColor[0.996109, 0.976577, 0.906264],
ButtonBoxOptions->{ButtonStyle->"EvaluateCell"}]
},
[*** snipp ***]
This works as expected. When klicking the button, the command (eg.
RealOnlyOn[]) is pasted in the notebook an evaluated. But I wonder if
it's possible to avoid the pasting in the notebook, and only perform the
command without any output? I tried different approaches using
ButtonFunction and EvaluateNotebook but to no avail.
Gruß Peter
--
=--=--=--=--=--=--=--=--=--=--=--=--=--=--=--=--= http://www.pBreitfeld.de
Peter Breitfeld, Bad Saulgau, Germany | Meinen GnuPG/PGP-5x Key gibts dort