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
|