Le 1 juin 2014 21:16, "stepharo" <stepharo@free.fr> a écrit :
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
Drag and drop also gives me that issue. There are a bit too many such issues with Nautilus. I got a couple others but was busy trying to make my own code to work. Phil