Todd Blanchard a écrit :

I have a whole hierarchy of classes with some prefix AA. I generated a clone of the hierarchy with a prefix like BB.

Now I am happy with the changes I've made to BBClass and want to replace the AAClass hierarchy with the BBClass hierarchy by deleting the AAClasses and renaming BBClasses to AAClasses. This is my script:

| list bbDict | list := AAClass withAllSubclasses asArray. bbDict := Dictionary new. list do: [:ea | bbDict at: ea bbClass put: ea name]. list do: [:cls | Smalltalk removeClass: cls]. bbDict keysAndValuesDo:[:k :v | Smalltalk renameClass: k as: v].

This doesn't seem to properly complete the job and leaves SystemDictionary and the new AAClasses in a weird state.

Here is what I found in omnibrowser code.

To remove a class: ------------------

yourClass theNonMetaClass removeFromSystem.

To rename a class: ------------------

yourClass theNonMetaClass environment renameClassNamed: oldName as: newName asSymbol.

Browse obsolete references: ---------------------------

| binding | binding := yourClass theNonMetaClass environment associationAt: aClassNode theNonMetaClass name.

(SystemNavigation default allCallsOn: binding) inspect

Hope this helps

Bye