Etoys: Morphic-kfr.61.mcz

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!

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev