Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Re: Conveniently Restarting Notebooks

• To: mathgroup at smc.vnet.net
• Subject: [mg51207] Re: [mg51189] Re: Conveniently Restarting Notebooks
• From: DrBob <drbob at bigfoot.com>
• Date: Fri, 8 Oct 2004 02:55:01 -0400 (EDT)
• References: <NDBBJGNHKLMPLILOIPPOOEEPEDAA.djmp@earthlink.net> <ck0c16$nuv$1@smc.vnet.net> <200410070926.FAA10844@smc.vnet.net>
• Reply-to: drbob at bigfoot.com
• Sender: owner-wri-mathgroup at wolfram.com

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]

• References:
  • Re: Conveniently Restarting Notebooks
    • From: Paul Abbott <paul@physics.uwa.edu.au>