[squeak-dev] The Trunk: 51Deprecated-mt.9.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Nov 4 17:52:02 UTC 2015


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!



More information about the Squeak-dev mailing list