Thank you.

On Mon, Feb 25, 2008 at 5:26 PM, Gary Chambers <gazzaguru2 at btinternet.com>
wrote:

> Guess we all have our own cleanup scripts ;-)
>
> > -----Original Message-----
> > From: squeak-dev-bounces at lists.squeakfoundation.org
> > [mailto:squeak-dev-bounces at lists.squeakfoundation.org]On Behalf Of Ramon
> > Leon
> > Sent: 25 February 2008 4:13 PM
> > To: 'The general-purpose Squeak developers list'
> > Subject: RE: [squeak-dev] 3.10 image
> >
> >
> > > Behalf Of Damien Cassou
> > > Sent: Monday, February 25, 2008 8:07 AM
> > > To: The general-purpose Squeak developers list
> > > Subject: Re: [squeak-dev] 3.10 image
> > >
> > > Ok, future versions will be much smaller. Thanks.
> >
> > Here's what I run when saving a clean image, usually gets me to
> > around 30meg
> > with all the dev tools loaded.
> >
> > customGarbageCollect
> >       | tasks |
> >       tasks := OrderedCollection new
> >               add: [ EventManager cleanUp ] ;
> >               add: [ SmalltalkImage cleanUp ] ;
> >               add: [ MCMethodDefinition cleanUp ] ;
> >               add: [ MCFileBasedRepository flushAllCaches ] ;
> >               add: [ WARegistry clearAllHandlers ] ;
> >               add: [ SMSqueakMap default clearCaches ] ;
> >               add: [ Smalltalk removeEmptyMessageCategories ] ;
> >               add: [ Utilities cleanseOtherworldlySteppers ] ;
> >               add: [ Workspace allSubInstancesDo: [ : each | each
> > setBindings: Dictionary new ] ] ;
> >               add: [ Undeclared removeUnreferencedKeys ] ;
> >               add: [ Categorizer sortAllCategories ] ;
> >               add: [ Symbol compactSymbolTable ] ;
> >               add: [ ReleaseBuilderDeveloper new fixObsoleteReferences ]
> ;
> >               add: [ Smalltalk garbageCollectMost ] ;
> >               yourself.
> >       Utilities informUserDuring:
> >               [ : bar |
> >               tasks do:
> >                       [ : block |
> >                       bar value: block printString.
> >                       [ block value ]
> >                               on: Error
> >                               do:
> >                                       [ : error |
> >                                       Transcript
> >                                               show: error ;
> >                                               cr ] ] ].
> >       SystemNavigation default obsoleteClasses isEmpty
> >               ifTrue: [ SmalltalkImage current saveSession ]
> >               ifFalse:
> >                       [ (self confirm: 'PointerFinder on obsolete
> > classes') ifFalse: [ ^ self ].
> >                       SystemNavigation default obsoleteClasses do:
> >                               [ : each |
> >                               [ PointerFinder on: each ]
> >                                       on: Error
> >                                       do:
> >                                               [ : error |
> >                                               Transcript
> >                                                       show: error ;
> >                                                       cr ] ] ]
> >
> > Ramon Leon
> > http://onsmalltalk.com
> >
> >
>
>


-- 
Damien Cassou
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20080225/ce8af2d5/attachment.htm