Re: Button to delete all graphics
- To: mathgroup at smc.vnet.net
- Subject: [mg15685] Re: [mg15666] Button to delete all graphics
- From: Jurgen Tischer <jtischer at col2.telecom.com.co>
- Date: Sun, 31 Jan 1999 03:06:08 -0500 (EST)
- Organization: Universidad del Valle
- References: <199901300928.EAA09011@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Ted,
I didn't bother about the Cells with -Graphics- and so on in it, since
you really want to get rid of the big Graphics Cells.
Cell[BoxData[
ButtonBox[
RowBox[{"Press", " ", "me"}],
ButtonFunction:>CompoundExpression[
NotebookFind[
SelectedNotebook[ ], "Graphics", All, CellStyle],
NotebookDelete[
SelectedNotebook[ ]]],
ButtonStyle->None]], "Input"]
Use with care, this thing something like rm in Unix.
Jurgen
"Ersek, Ted R" wrote:
>
> The menu selection
> Kernel -> Delete All Output
> will do just what it says.
>
> I would like to have a button that will delete only the cells that are
> notorious memory hogs (graphic cells). So how can I make a button that
> will delete all Out[n] cells of the form: -Graphics-
> -Graphics3D-
> -ContourGraphics-
> -DensityGraphics-
> -SurfaceGraphics-
> -GraphicsArray-
> and delete the cells containing the graphics of the types listed.
>
> Thanks,
> Ted Ersek
- References:
- Button to delete all graphics
- From: "Ersek, Ted R" <ErsekTR@navair.navy.mil>
- Button to delete all graphics