Re: Obsolete classes - I can find pointers to them, but how to get rid of them

El 12/8/07 3:02 AM, "Keith Hodges" <keith_hodges@xxxxxxxxxxx> escribió:

> fixAllObsoleteReferences
> "
> self fixAllObsoleteReferences
> "
> (SystemNavigation default obsoleteBehaviors select: [ :c | c isMeta not ])
>     do: [ :obsClass |
>        
>         ([obsClass nonObsoleteClass] ifError: [ nil]) ifNotNilDo:
>             [ :actualClass |
>                
>                 actualClass updateInstancesFrom: obsClass.
>                 obsClass becomeForward: actualClass.
>            
>                 ([obsClass metaclass] ifError:[nil]) ifNotNilDo:
>                     [:metaClass |
>                         metaClass becomeForward: actualClass class ]]].
>            
>         SmalltalkImage current fixObsoleteReferences

Keith, made a  Mantis report with this and could go into 3.10.
Also any related to image cleanup.

Edgar