On Jan 31, 2016 9:31 PM, "stepharo" <stepharo@free.fr> wrote:

I really hope that Bloc will forbid such systematic submorphs use because it leads to code like that.

Stef

submorphNamed: aName
�� ^ self submorphNamed: aName ifNone: [nil]

submorphNamed: aName ifNone: aBlock
�� "Find the first submorph with this name, or a button with an action selector of that name"

�� self submorphs do:
�� [:button | | sub args |
�� (button respondsTo: #actionSelector)
�� ifTrue: [button actionSelector == aName ifTrue: [^button]].
�� ((button respondsTo: #arguments) and: [(args := button arguments) notNil])
�� ifTrue: [(args at: 2 ifAbsent: [nil]) == aName ifTrue: [^button]].
�� (button isAlignmentMorph)
�� ifTrue: [(sub := button submorphNamed: aName ifNone: [nil]) ifNotNil: [^sub]]].
�� ^aBlock value