[Pharo-dev] Moving class to package raises DNU includesClass:

June 1, 2014


      package includesClass: aClass


step to reproduce
     - select a class
         - AbstractFontSelectorDialogWindow
     - choose Move to package ...

https://pharo.fogbugz.com/default.asp?13291

Stef


packageMatchingExtensionName: aString includingClass: aClass
     | package categoryName |

     categoryName := aString.
     package := self packageMatchingExtensionName: categoryName.
     [ package includesClass: aClass ]
         whileFalse: [
             (categoryName includes: $-)
                 ifFalse: [ self error: 'Class not categorized!' ].

             categoryName := categoryName copyUpToLast: $-.
             package := self packageMatchingExtensionName: categoryName ].

     ^ package


systemClassRecategorizedActionFrom: ann
     | class newRPackage newRPackageTag oldRPackage newCategoryName 
oldCategoryName|

     class := ann classAffected.

     newCategoryName := ann newCategory asSymbol.
     oldCategoryName := ann oldCategory asSymbol.
     oldRPackage := self packageMatchingExtensionName: oldCategoryName 
includingClass: class.

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
     newRPackage := (self packageMatchingExtensionName: newCategoryName)
         ifNil: [ self registerPackage: (self packageClass named: 
newCategoryName) ].

     newRPackageTag := newRPackage addClassTag: newCategoryName.

     newRPackage
         moveClass: class
         fromPackage: oldRPackage
         toTag: newRPackageTag

[Pharo-dev] Moving class to package raises DNU includesClass:

stepharo