[squeak-dev] The Trunk: EToys-tfel.253.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Sep 26 09:41:34 UTC 2016
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!
More information about the Squeak-dev
mailing list
|