Re: StylePrint problem
- To: mathgroup at smc.vnet.net
- Subject: [mg20489] Re: StylePrint problem
- From: paulh at wolfram.com (P.J. Hinton)
- Date: Wed, 27 Oct 1999 02:04:53 -0400
- Organization: "Wolfram Research, Inc."
- References: <7v3apq$5l1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
In article <7v3apq$5l1 at smc.vnet.net>, "Dana DeLouis" <dana2 at email.msn.com> writes:
>Hello. I am trying to learn Programming in Mathematica 4. I am also studying math
>problems.
>If I know that I am going to do 30+ problems at the end of a chapter, I
>want to avoid typing in the text..Problem #1, Problem #2, etc
>
>I found this example in the "Tour of Mathematica" section of "The
>Mathematica Book."
>
>Do[StylePrint["Problem # " <> ToString[i], "Section"], {i, 10}]
>
>Which works...kind of. After the above prints out correctly, I move the
>cursor between say Problem #4, and Problem #5 to begin solving Problem #4.
>As soon as I hit enter, all the output from Problem #5, down to the last
>one is deleted!
>
>Does anyone do anything similar? Is there another command that I should be
>using instead. I have looked for a long time. Thank you for any insight /
>solution. Dana
This sort of task is ideal for palette buttons and counters.
Paste these expressions into individual cells and evaluate them in order
of appearance. They will generate 2 x 1 palette of buttons. Clicking
on the first button sets down a Section cell identifying the section
of the book from which the problems came. The second button pastes
cells that automatically number the problem. To create a standalone
palette notebook, select the array of buttons and then perform the
menu command File -> Generate Palette from Selection.
(but1 =
ButtonBox[
"Paste Section Heading",
ButtonEvaluator -> None,
ButtonFunction :>
NotebookWrite[
FrontEnd`InputNotebook[],
Cell[
TextData[
{"Section ",
CounterBox["Section"]
}
],
"Section"
]
],
Active -> True
]) // DisplayForm
(but2 =
ButtonBox[
"Paste Problem Heading",
ButtonEvaluator -> None,
ButtonFunction :>
NotebookWrite[
FrontEnd`InputNotebook[],
Cell[
TextData[
{"Problem ",
CounterBox["Subsection"],
" Section ",
CounterBox["Section"]
}
],
"Subsection"
]
],
Active -> True
]) // DisplayForm
GridBox[
{{but1}, {but2}},
RowSpacings -> 0
] // DisplayForm
To initialize the value of the Section counter to something other
than 1. Click on the bracket of the first Section style cell in
the notebook and open the Option Inspector with the menu command
Format -> Option Inspector...
Within the Option Inpsector dialog, set the window to your working
notebook and the scope indicator to "selection." Enter the text
"CounterAssignments" in the text field adjacent to the Lookup button
and then click on it. The value of CounterAssignments may look
something like this.
CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}
Change it to read:
CounterAssignments->{{"Section", <desired value - 1>,
{"Subsection", 0}, {"Subsubsection", 0}}
So if you wanted to start the Section numbering at 43, you would enter
the value of 42 (isn't that the answer to all questions?)
For more information, check out the CounterBox tutorial at MathSource.
--
P.J. Hinton
Mathematica Programming Group paulh at wolfram.com
Wolfram Research, Inc.
Disclaimer: Opinions expressed herein are those of the author alone.