Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

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

Search the Archive

Re: How do I hide all input in a Mathematica notebook?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg116243] Re: How do I hide all input in a Mathematica notebook?
  • From: Justin Sharber <justin.sharber at gmail.com>
  • Date: Tue, 8 Feb 2011 05:05:45 -0500 (EST)
  • Reply-to: comp.soft-sys.math.mathematica at googlegroups.com

This code is terrific.  

It can be improved by making two buttons.  For something like a slideshow, this enables you to quickly hide all code, but just as easily reveal it.

Button["Hide Inputs", Module[{nb}, nb = EvaluationNotebook[];
  NotebookFind[EvaluationNotebook[], "Input", All, CellStyle];
  SetOptions[NotebookSelection[nb], CellOpen -> False, 
   ShowCellBracket -> False]]]

Button["Show Inputs", Module[{nb}, nb = EvaluationNotebook[];
  NotebookFind[EvaluationNotebook[], "Input", All, CellStyle];
  SetOptions[NotebookSelection[nb], CellOpen -> True, 
   ShowCellBracket -> True]]]


  • Prev by Date: ListCorrelate and Powers
  • Next by Date: Re: Hi
  • Previous by thread: Re: ListCorrelate and Powers
  • Next by thread: Generated parameters