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

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

Name: EToys-tfel.253
Author: tfel
Time: 26 September 2016, 11:40:48.856552 am
UUID: a00694aa-7017-b444-a8d0-6671ec171efd
Ancestors: EToys-tfel.252

delete the project saving morph before saving

=============== Diff against EToys-tfel.252 ===============

Item was changed:
  ----- Method: EToyProjectDetailsMorph>>doOK (in category 'utilities') -----
  doOK
  	"User hit the ok button in the project-info dialog.  Store the updated project-info back in the project. Call the message-send residing in the receiver's actionBlock to carry out any subsequent desired task.  Note that this method sets the 'arguments' of the message-send in the actionBlock"
  
  	| args actionSelector  |
  	self validateTheProjectName ifFalse: [^false].
  	projectDetails := self copyOutDetails.
  
  	theProject acceptProjectDetails: projectDetails.  "Make sure project & world feel the changes"
+ 
+ 	self delete.
- 		
  	actionBlock isMessageSend "new way -- hopefully all cases"
  		ifTrue:  "please excuse this ugly, non-modular code..."
  			[actionSelector := actionBlock selector.
  			args := (actionSelector = #handUserSorterMorphForProjectNamed:) 
  				ifTrue:
  					[{theProject name}]
  				ifFalse:
  					[actionSelector numArgs = 0
  						ifTrue:
  							[nil]
  						ifFalse:
  							[Array with: projectDetails]].
  			actionBlock arguments: args.
  			actionBlock value]
  
  		ifFalse:  "Old way, with actionBlock actually a block of one argument.  This should no longer occur."
+ 			[actionBlock value: projectDetails].!
- 			[actionBlock value: projectDetails].
- 
- 	self delete!

Item was changed:
  ----- Method: EToyProjectQueryMorph>>doOK (in category 'ok button hit') -----
  doOK
  	"User hit the ok button in the project-query dialog."
  
  	| details |
  	details := self copyOutDetails.
  
+ 	self delete.
  	actionBlock isMessageSend "new way -- hopefully all cases"
  		ifTrue:
  			[actionBlock arguments: {details. actionBlock arguments second}.
  			actionBlock value]
  
  		ifFalse:  "Old way, with actionBlock actually a block of one argument.  This should no longer occur."
+ 			[actionBlock value: details].!
- 			[actionBlock value: details].
- 
- 	self delete!