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