How do I enable the Evaluate in Place item of the Evaluate menu?

Questions
,
1

I would like to setup a notebook that suppresses additive cell evaluation (so I only see one manipulate control or plot). Is there a way to enable the Evaluate in Place menu item? (apologies for any mis-spellings - the Tip block covers the right-hand side of this edit box).

2

I am not quite sure what you mean by “additive cell evaluation”. Do you want to always replace a given input cell by its output -- thus deleting the contents original Input Cell? If so, Here is an example of a single button Palette that will do this:

CreateWindow[
 PaletteNotebook[{
    Button["Evaluate In Place",
    Module[{nb},
     nb = InputNotebook[];
     SelectionMove[nb, All, CellContents];
     SelectionEvaluate[nb, None];
     SelectionMove[nb, All, Cell]],
    Method -> "Queued",
    BaseStyle -> {11, FontFamily -> "Helvetica"},
    Appearance -> "Palette"
    ]
   }
  ]
 ]

--David
http://scientificarts.com