Thank you.<br><br><div class="gmail_quote">On Mon, Feb 25, 2008 at 5:26 PM, Gary Chambers <<a href="mailto:gazzaguru2@btinternet.com">gazzaguru2@btinternet.com</a>> wrote:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Guess we all have our own cleanup scripts ;-)<br>
<div class="Ih2E3d"><br>
> -----Original Message-----<br>
> From: <a href="mailto:squeak-dev-bounces@lists.squeakfoundation.org">squeak-dev-bounces@lists.squeakfoundation.org</a><br>
</div><div class="Ih2E3d">> [mailto:<a href="mailto:squeak-dev-bounces@lists.squeakfoundation.org">squeak-dev-bounces@lists.squeakfoundation.org</a>]On Behalf Of Ramon<br>
> Leon<br>
> Sent: 25 February 2008 4:13 PM<br>
> To: 'The general-purpose Squeak developers list'<br>
</div><div><div></div><div class="Wj3C7c">> Subject: RE: [squeak-dev] 3.10 image<br>
><br>
><br>
> > Behalf Of Damien Cassou<br>
> > Sent: Monday, February 25, 2008 8:07 AM<br>
> > To: The general-purpose Squeak developers list<br>
> > Subject: Re: [squeak-dev] 3.10 image<br>
> ><br>
> > Ok, future versions will be much smaller. Thanks.<br>
><br>
> Here's what I run when saving a clean image, usually gets me to<br>
> around 30meg<br>
> with all the dev tools loaded.<br>
><br>
> customGarbageCollect<br>
> | tasks |<br>
> tasks := OrderedCollection new<br>
> add: [ EventManager cleanUp ] ;<br>
> add: [ SmalltalkImage cleanUp ] ;<br>
> add: [ MCMethodDefinition cleanUp ] ;<br>
> add: [ MCFileBasedRepository flushAllCaches ] ;<br>
> add: [ WARegistry clearAllHandlers ] ;<br>
> add: [ SMSqueakMap default clearCaches ] ;<br>
> add: [ Smalltalk removeEmptyMessageCategories ] ;<br>
> add: [ Utilities cleanseOtherworldlySteppers ] ;<br>
> add: [ Workspace allSubInstancesDo: [ : each | each<br>
> setBindings: Dictionary new ] ] ;<br>
> add: [ Undeclared removeUnreferencedKeys ] ;<br>
> add: [ Categorizer sortAllCategories ] ;<br>
> add: [ Symbol compactSymbolTable ] ;<br>
> add: [ ReleaseBuilderDeveloper new fixObsoleteReferences ] ;<br>
> add: [ Smalltalk garbageCollectMost ] ;<br>
> yourself.<br>
> Utilities informUserDuring:<br>
> [ : bar |<br>
> tasks do:<br>
> [ : block |<br>
> bar value: block printString.<br>
> [ block value ]<br>
> on: Error<br>
> do:<br>
> [ : error |<br>
> Transcript<br>
> show: error ;<br>
> cr ] ] ].<br>
> SystemNavigation default obsoleteClasses isEmpty<br>
> ifTrue: [ SmalltalkImage current saveSession ]<br>
> ifFalse:<br>
> [ (self confirm: 'PointerFinder on obsolete<br>
> classes') ifFalse: [ ^ self ].<br>
> SystemNavigation default obsoleteClasses do:<br>
> [ : each |<br>
> [ PointerFinder on: each ]<br>
> on: Error<br>
> do:<br>
> [ : error |<br>
> Transcript<br>
> show: error ;<br>
> cr ] ] ]<br>
><br>
> Ramon Leon<br>
> <a href="http://onsmalltalk.com" target="_blank">http://onsmalltalk.com</a><br>
><br>
><br>
<br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Damien Cassou