MathGroup Archive 2000

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

Search the Archive

Re: Removing In and Out Labels in all Open Notebooks

  • To: mathgroup at
  • Subject: [mg21845] Re: Removing In and Out Labels in all Open Notebooks
  • From: paulh at (P.J. Hinton)
  • Date: Sun, 30 Jan 2000 18:53:28 -0500 (EST)
  • Organization: "Wolfram Research, Inc."
  • References: <870usm$>
  • Sender: owner-wri-mathgroup at

In article <870usm$8kt at>,
 Adalbert Hanssen <hanssen at> writes:

> after shutting down the kernel, all the blue In and Out
> labels remain in the notebook. After starting a new kernel,
> they remain also on screen.
> I am looking for some command, to switch off or remove
> all those blue In and Out-labels on all Notebooks, currently open. 
> I want to put this into Init.m sucht that after starting a new kernel,
> I can unambiguously tell, which cell was digested by the
> current session and which one was not.
> I know, closing and re-opening all notebooks would do the
> job, but I don't like this, because it is less convenient and
> also I want to maintain the positions in all open notebooks.

You can paste this snippet in your notebook:

SelectionMove[EvaluationNotebook[], All, Notebook];
SetOptions[NotebookSelection[EvaluationNotebook[]], CellLabel -> ""]±

Alternatively, you can hide this behind a button.

  StyleBox["Clear cell labels", FontFamily -> "Helvetica"],
  ButtonFunction :> 
      SelectionMove[EvaluationNotebook[], All, Notebook],
      SetOptions[NotebookSelection[EvaluationNotebook[]], CellLabel -> ""]
  ButtonEvaluator -> None,
  Active -> True
] // DisplayForm

P.J. Hinton
Mathematica Programming Group           paulh at
Wolfram Research, Inc.
Disclaimer: Opinions expressed herein are those of the author alone.

  • Next by Date: Re: Mathematica and Apple Events (Q:)
  • Previous by thread: Re: warning: action not found: delete-next-character
  • Next by thread: Re: Mathematica and Apple Events (Q:)