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!
packages@lists.squeakfoundation.org