The Trunk: EToys-tfel.258.mcz

Tim Felgentreff uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-tfel.258.mcz

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

Name: EToys-tfel.258
Author: tfel
Time: 28 September 2016, 5:27:37.334594 pm
UUID: ef184947-0831-4b86-9f5f-5707547734bc
Ancestors: EToys-tfel.257

- Fix for duplicating KedamaMorphs with non-visible patches or turtles
- be careful not to loose top level projects when deleting projects through the etoys history morph
- setTurtleCount: on a vector player should go to the exampler player

=============== Diff against EToys-tfel.257 ===============

Item was changed:
  ----- Method: EToyProjectHistoryMorph>>confirmedDelete:evt:from: (in category 'as yet unclassified') -----
  confirmedDelete: aProject evt: evt from: origin
 
  self delete.
  aProject = Project current ifTrue: [
  ^ self inform: 'Cannot delete current project' translated].
  (self confirm: ('Do you really want to delete {1}
  and all its content?' translated format: {aProject name}))
+ ifTrue: [
+ aProject isTopProject ifTrue: [Project current beTopProject].
+ aProject delete.
+ Project rebuildAllProjects].!
- ifTrue: [aProject delete].!

Item was changed:
  ----- Method: KedamaMorph>>duplicate (in category 'as yet unclassified') -----
  duplicate
 
  | allMorphBounds allMorphs allOwners copyW s w |
  allMorphs := {self}, self player allPatchAndTurtleMorphs.
  allOwners := allMorphs collect: #owner.
  allMorphBounds := allMorphs allButFirst
  inject: self bounds into: [:acc :next | next bounds merge: acc].
  w := PasteUpMorph new.
  w bounds: allMorphBounds.
  w openInWorld.
  w addAllMorphs: allMorphs.
  copyW := w duplicate.
+ allMorphs withIndexDo: [:m :idx | (allOwners at: idx) ifNotNil: [:o | o addMorph: m]].
- allMorphs withIndexDo: [:m :idx | (allOwners at: idx) addMorph: m].
  w delete.
  s := SelectionMorph new.
  s bounds: copyW bounds.
  s selectSubmorphsOf: copyW.
  ^ s!

Item was added:
+ ----- Method: KedamaTurtleVectorPlayer2>>setTurtleCount: (in category 'slot-kedama') -----
+ setTurtleCount: aNumber
+
+ ^ exampler setTurtleCount: aNumber!