[etoys-dev] Etoys: Morphic-kfr.61.mcz

[commits at source.squeak.org]

Karl Ramberg uploaded a new version of Morphic to project Etoys:
http://source.squeak.org/etoys/Morphic-kfr.61.mcz

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

Name: Morphic-kfr.61
Author: kfr
Time: 22 May 2011, 12:11:06 pm
UUID: 9d7aa0d2-3277-8047-9bf7-e693b06867f2
Ancestors: Morphic-kfr.60

If you scale a parts bin, then drag an object out an exception is thrown
http://tracker.squeakland.org/browse/SQ-936

=============== Diff against Morphic-kfr.60 ===============

Item was changed:
  ----- Method: Morph>>addFlexShell (in category 'rotate scale and flex') -----
  addFlexShell
  	"Wrap a rotating and scaling shell around this morph."
  
+ 	| oldHalo flexMorph myWorld anIndex morphOwner |
- 	| oldHalo flexMorph myWorld anIndex |
  
+ 	myWorld := self world.
+ 	oldHalo:= self halo.
+ 	self owner ifNotNil:[ morphOwner := self owner]
+ 					ifNil:[morphOwner := self currentWorld].
+ 	
+ 	anIndex := morphOwner  submorphIndexOf: self.
+ 	morphOwner  addMorph: (flexMorph := self newTransformationMorph asFlexOf: self)
- 	myWorld _ self world.
- 	oldHalo _ self halo.
- 	anIndex _ self owner submorphIndexOf: self.
- 	self owner addMorph: (flexMorph _ self newTransformationMorph asFlexOf: self)
  		asElementNumber: anIndex.
  	self transferStateToRenderer: flexMorph.
  	oldHalo ifNotNil: [oldHalo setTarget: flexMorph].
  	myWorld ifNotNil: [myWorld startSteppingSubmorphsOf: flexMorph].
  
  	^ flexMorph!