On 2/13/10 11:34 PM, "Andreas Raab" <andreas.raab at gmx.de> wrote:

> Folks -
> 
> Since so much has been going on, I've put an updated trunk image up on:
> 
>      http://ftp.squeak.org/trunk/Squeak3.11-9371-alpha.zip

I see no cleanup in the image, so I load and try.
I found:

AnObsoleteModalSystemWindowView . AnObsoletePluggableFileListView .
AnObsoleteFlexibleVocabulariesInfo

I put System-edc.253 into inbox for improve and go to trunk.

Keep the super job, if you run for 2010 Board have my entusiastic vote.

Cheers.

Edgar

-------------- next part --------------
'From SqueakLight|II of 31 May 2008 [latest update: #7265] on 13 February 2010 at 8:39:43 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]]]



	! !