Hi Hilaire,
what you are describing is moving a class from a package tag to another
package tag in the same package.
And you are manipulating directly the RPackageOrganizer for that.
As RPackage was designed, to avoid infinite recursion, some operations
apply only onto the RPackageOrganizer itself and do not change system
categories, and, as such, are not be used directly. It is wiser to do
the change via the system categories, and RPackage will pick it up
correctly. You will also benefit from a proper system announcements as well.
This should work:
org := (RPackageOrganizer default packageNamed: 'MyPackage').
tag := org addClassTag: #Classes.
org definedClasses do: [ :aClass |
aClass category: tag categoryName ].
Regards,
Thierry
Le 26/05/2017 à 18:36, Hilaire a écrit :
Hello,
I want to move class from package "MyPackage-subPackage" to
"MyPackage-Classes" with the code bellow:
org := (RPackageOrganizer default packageNamed: 'MyPackage').
org addClassTag: #Classes.
org definedClasses do: [ :aClass | |tag|
tag := org classTagForClass: aClass.
org addClassDefinition: aClass toClassTag: #Classes.
org removeClassDefinition: aClass fromClassTag: tag name.
].
It produces this result when browsed with Nautilus, but the class
definition still show the old package:
Object subclass: #MyClass
instanceVariableNames: ''
classVariableNames: ''
package: 'MyPackage-subPackage'
Therefore when saving the package the old package is still represented.
How to do it?
Thanks
Hilaire
