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