M>>doesNotUnderstand: aMessage ^aMessage asMessageSend !

( M handUserSorterMorphForProjectNamed: nil )"<---[ easy way to make a
MessageSend ]"
...
     sendTo: obj

On Monday, September 26, 2016, <commits at source.squeak.org> wrote:

> 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!
>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20160926/9e27af97/attachment.htm