El 7/15/08 8:58 AM, "stan shepherd" <squeak414 at free.fr> escribió:

> Hi, could someone point me to where to find ReleaseBuilderDeveloper please?
> 
> Thanks,    ...Stan
I take the Ramon cleanup and adapt to Release Builder.

Also I suggest made a method , I attach here

Edgar

-------------- next part --------------
'From Squeak3.11alpha of 17 May 2008 [latest update: #7068] on 30 May 2008 at 10:16:25 am'!

!SmalltalkImage methodsFor: 'image cleanup' stamp: 'edc 5/30/2008 10:16'!
cleanup
	"SmalltalkImage current cleanup"
	| tasks |
    tasks := OrderedCollection new
        
                add: [Smalltalk removeEmptyMessageCategories];
                add: [Workspace
                        allSubInstancesDo: [:each | each setBindings: Dictionary new]];
                add: [Undeclared removeUnreferencedKeys];
                add: [Categorizer sortAllCategories];
                add: [Symbol compactSymbolTable];
	add: [#(#TheWorldMenu #FileServices #AppRegistry #Preferences #FileList )
		do: [:cl | (Smalltalk at: cl) removeObsolete]]; add:[Flaps freshFlapsStart]; add:[MCFileBasedRepository flushAllCaches];
                 add: [HandMorph releaseCachedState;
	initForEvents.self fixObsoleteReferences];
                add: [Smalltalk forgetDoIts.

	DataStream initialize.
	Behavior flushObsoleteSubclasses.

	"The pointer to currentMethod is not realy needed (anybody care to fix this) and often holds on to obsolete bindings"
	MethodChangeRecord allInstancesDo: [:each | each noteNewMethod: nil].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: [SystemNavigation default obsoleteClasses
                do: [:each | .self halt.[PointerFinder on: each]
                        on: Error
                        do: [:error | Transcript show: error; cr]]]



	! !