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!
squeak-dev@lists.squeakfoundation.org