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