An useful snip (maybe)

Markus Fritsche Fritsche.Markus at gmx.net
Thu Mar 17 21:07:13 UTC 2005


Put

referencesAsSet
	| set |
	set := Set new.
	self methodDict do: [ association |
		association value literals do: [ :literal |
			(literal isKindOf: LookupKey) ifTrue: [
				set add: literal ]]].
	self class methodDict do: [ association |
		association value literals do: [ :literal |
			(literal isKindOf: LookupKey) ifTrue: [
				set add: literal ]]].
	^ set

in Class. If you explore "Socket referencesAsSet", you'll get an idea 
what is referenced by Socket's methods (superclass methods not 
included). I found it useful when 'renetworking' my majorShrinked image.


Kind regards, Markus

-- 
http://reauktion.de/archer/




More information about the Squeak-dev mailing list