The Trunk: 51Deprecated-mt.9.mcz

Marcel Taeumel uploaded a new version of 51Deprecated to project The Trunk:
http://source.squeak.org/trunk/51Deprecated-mt.9.mcz

==================== Summary ====================

Name: 51Deprecated-mt.9
Author: mt
Time: 4 November 2015, 6:51:55.753 pm
UUID: c75b7e53-d432-41ed-937e-945ac48af8d9
Ancestors: 51Deprecated-topa.8

Refactors and cleans-up drag-and-drop mechanism used by pluggable lists and trees.

=============== Diff against 51Deprecated-topa.8 ===============

Item was changed:
  SystemOrganization addCategory: #'51Deprecated-Files-Kernel'!
+ SystemOrganization addCategory: #'51Deprecated-Morphic-Support'!

Item was added:
+ ----- Method: Object>>dragAnimationFor:transferMorph: (in category '*51Deprecated') -----
+ dragAnimationFor: item transferMorph: transferMorph
+ "Default do nothing"!

Item was added:
+ Morph subclass: #TransferMorphAnimation
+ instanceVariableNames: 'transferMorph'
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: '51Deprecated-Morphic-Support'!

Item was added:
+ ----- Method: TransferMorphAnimation class>>on: (in category 'instance creation') -----
+ on: aTransferMorph
+ ^self new on: aTransferMorph!

Item was added:
+ ----- Method: TransferMorphAnimation>>on: (in category 'initialization') -----
+ on: aTransferMorph
+
+ self flag: #bob. "there was a reference to World, but the class seems to be unused"
+
+ self color: Color transparent.
+ transferMorph := aTransferMorph.
+ transferMorph addDependent: self.
+ ActiveWorld addMorph: self "or perhaps aTransferMorph world"!

Item was added:
+ ----- Method: TransferMorphAnimation>>transferMorph (in category 'accessing') -----
+ transferMorph
+ ^transferMorph!

Item was added:
+ ----- Method: TransferMorphAnimation>>update: (in category 'updating') -----
+ update: aSymbol
+ aSymbol == #deleted
+ ifTrue: [self delete].
+ aSymbol == #position
+ ifTrue: [self updateAnimation].
+ self changed!

Item was added:
+ ----- Method: TransferMorphAnimation>>updateAnimation (in category 'update') -----
+ updateAnimation!

Item was added:
+ TransferMorphAnimation subclass: #TransferMorphLineAnimation
+ instanceVariableNames: 'polygon'
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: '51Deprecated-Morphic-Support'!

Item was added:
+ ----- Method: TransferMorphLineAnimation>>initPolygon (in category 'initialization') -----
+ initPolygon
+ polygon := (LineMorph from: self transferMorph source bounds center
+ to: self transferMorph bounds center
+ color: Color black width: 2)
+ dashedBorder: {10. 10. Color white}.
+ self addMorph: polygon
+ !

Item was added:
+ ----- Method: TransferMorphLineAnimation>>on: (in category 'initialization') -----
+ on: aTransferMorph
+ super on: aTransferMorph.
+ self initPolygon!

Item was added:
+ ----- Method: TransferMorphLineAnimation>>updateAnimation (in category 'update') -----
+ updateAnimation
+ polygon verticesAt: 2 put: self transferMorph center!