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!