Re: Cell grouping rules

*To*: mathgroup at smc.vnet.net*Subject*: [mg40208] Re: Cell grouping rules*From*: rolf at mertig.com (Rolf Mertig)*Date*: Tue, 25 Mar 2003 14:51:20 -0500 (EST)*References*: <b5p01s$7q9$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Oliver Friedrich <oliver.friedrich at tzm.de> wrote in message news:<b5p01s$7q9$1 at smc.vnet.net>... > Hallo, > > I have a cell containing an expression. Evaluating this produces some > graphical output for an animation. After evaluation my cell grouping is > (expression,graphic,graphic,...). But I want to have it like (expression) > (graphic,graphic,...). So the expression and the output are not grouped > together. > I found out, that there are options dealing with grouping cells, but how is > it working exactly. There's an option called "CellGroupingRules" which > points to something like a style ("GraphicsGrouping,...). Where are these > styles defined and how can I define my own ones. > > Thank you > > Oliver Friedrich You could either change the option default CellGroupingRules->"InputGrouping" of the StyleData["Input"] in the Default.nb "stylesheet", or, since this is not really portable, you could do (for not too big notebooks): $Pre = (SelectionMove[EvaluationNotebook[], All, Notebook]; NotebookWrite[EvaluationNotebook[], NotebookGet[EvaluationNotebook[]] /. Cell[a_, "Input", b___] :> Cell[a, "Input", Sequence @@ Append[Union[{b}], CellGroupingRules -> "NormalGrouping"]]]; #) &; or, you modify my posting http://www.mathematica.ch/dmug-archive/2003/msg00084.html which is also kind of a grouping. Hopefully a future version of Mathematica will have complete dynamic style property manipulation through the kernel, maybe with "session beans" like in Java. Rolf Mertig Mertig Consulting http://www.mertig.com http://www.mathxls.com