Hi all,

this tiny goodie removes all entries without references from Undeclared.
Maybe this should be called after every file in.


Michael
-------------- next part --------------
'From Squeak2.8alpha of 19 January 2000 [latest update: #2052] on 5 May 2000 at 1:27:13 pm'!

!Utilities class methodsFor: 'miscellaneous' stamp: 'mir 5/5/2000 13:26'!
cleanupUndeclared
	| toBeRemoved refs |
	"Utilities cleanupUndeclared"

	toBeRemoved _ Set new.
	Undeclared associationsDo: [:assoc |
		refs _ Smalltalk allCallsOn: assoc.
		refs isEmpty
			ifTrue: [toBeRemoved add: assoc key]].
	toBeRemoved do: [:each |
		Undeclared removeKey: each]! !