Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

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 


  • Prev by Date: Re: plot variance(s)
  • Next by Date: Re: 3D plotting problem
  • Previous by thread: Re: plot variance(s)
  • Next by thread: Re: closing notebook cells