MathGroup Archive 2004

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

Search the Archive

Re: Re: Conveniently Restarting Notebooks


The palette below deals with Titles, at least.

The "toggle" behavior is implicit in the "OpenCloseGroup" token--a "CloseGroup" token is needed, but it doesn't seem to work. I also see why "3" doesn't affect all Title sections--only those that have Subsubsections.

Bobby

Cell[BoxData[GridBox[
   {
    {ButtonBox[ "0",
      ButtonFunction:>FrontEndExecute[
      {
      NotebookFind[SelectedNotebook[ ],"Title", All, CellStyle],
       FrontEndToken[ "OpenCloseGroup"]
      }]]
     },
    {ButtonBox[ "1",
      ButtonFunction:>FrontEndExecute[
      {
      NotebookFind[SelectedNotebook[ ],"Section", All, CellStyle],
       FrontEndToken[ "OpenCloseGroup"]
      }]]
     },
    {ButtonBox[ "2",
      ButtonFunction:>FrontEndExecute[
      {
      NotebookFind[SelectedNotebook[ ],"Subsection", All, CellStyle],
       FrontEndToken[ "OpenCloseGroup"]
      }]]
     },
    {ButtonBox[ "3",
      ButtonFunction:>FrontEndExecute[
      {
      NotebookFind[SelectedNotebook[ ],"Subsubsection", All, CellStyle],
       FrontEndToken[ "OpenCloseGroup"]
      }]]
     }
   },
   RowSpacings->0,
   ColumnSpacings->0
   ]], NotebookDefault, NotebookAutoSave->False]


  • Prev by Date: Re: Variance of sample and whole dataset
  • Next by Date: Re: no line PlotStyles with ParametricPlot3D ?
  • Previous by thread: Re: Conveniently Restarting Notebooks
  • Next by thread: Re: Re: Conveniently Restarting Notebooks