closing notebook cells
- To: mathgroup at smc.vnet.net
- Subject: [mg51762] closing notebook cells
- From: "Barthelet, Luc" <lucb at ea.com>
- Date: Mon, 1 Nov 2004 02:52:43 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
As I learned in mathgroup a few years ago I am using the following code
to close automatically my graphics groups.
CloseAnim[]:=(SelectionMove[EvaluationNotebook[],All,GeneratedCell];
FrontEndTokenExecute["OpenCloseGroup"];);
CloseAnim::usage = "CloseAnim[]";
For example:
Table[Show[Graphics[
{Hue[Random[] ],Rectangle[{0,0},{1,1}]
}]],{3}];
CloseAnim[];
The problem is that when I only generate a single cell "OpenCloseGroup"
will generate a beep.
Any idea on how to prevent that beep or test if GeneratedCell selected a
single or several cells?
Thanks
Luc