2014-07-27 9:20 GMT+02:00 stepharo <stepharo@free.fr>:

Hi nicolai

may be this is linked to your nautilus pass
Right now I cannot drag and drop a class to a different package.

Stef

dropInAPackage: aCollection into: receiver

�� aCollection do:[:aClass |
�� self showGroups
�� ifTrue: [
�� receiver addClasses: { aClass }.
�� ActiveHand shiftPressed
�� ifFalse: [
�� self selectedGroup removeClass: aClass.
�� self updateClassView ]]
�� ifFalse: [
�� receiver addClass: aClass ��theNonMetaClass.
�� ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

�� aClass is an iconicItem not a class

�� ActiveHand shiftPressed
�� ifTrue: [
�� self selectedClass: nil.
�� self updateClassView ]
�� ifFalse:[
�� self selectedPackage: receiver.
�� self selectedClass: aClass.
�� self updateBothView ]]]

Yes, I missed the drag and drop part.

Will fix with next refractoring step.

nicolai