Nicolas Cellier uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-nice.195.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-nice.195 Author: nice Time: 10 June 2017, 5:59:37.517672 pm UUID: 73e96169-edde-48e6-9b31-65a62ae9c88f Ancestors: ToolBuilder-Morphic-pre.194
Massively replace ifNotNilDo: by ifNotNil: We don't need two different selectors to do a single thing.
=============== Diff against ToolBuilder-Morphic-pre.194 ===============
Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableButton: (in category 'widgets required') ----- buildPluggableButton: aSpec | widget label state action enabled | label := aSpec label. state := aSpec state. action := aSpec action. widget := self buttonClass on: aSpec model getState: (state isSymbol ifTrue:[state]) action: nil label: (label isSymbol ifTrue:[label]). widget style: aSpec style. aSpec changeLabelWhen + ifNotNil: [ :event | widget whenChanged: event update: aSpec label]. - ifNotNilDo: [ :event | widget whenChanged: event update: aSpec label]. self register: widget id: aSpec name. enabled := aSpec enabled. enabled isSymbol ifTrue:[widget getEnabledSelector: enabled] ifFalse:[widget enabled:enabled]. widget action: action. aSpec color isColor ifTrue: [widget offColor: aSpec color] ifFalse: [widget getColorSelector: aSpec color]. self buildHelpFor: widget spec: aSpec. (label isSymbol or:[label == nil]) ifFalse:[widget label: label]. self setFrame: aSpec frame in: widget. self setLayoutHintsFor: widget spec: aSpec. parent ifNotNil:[self add: widget to: parent]. ^widget!
Item was changed: ----- Method: PluggableButtonMorphPlus>>update: (in category 'updating') ----- update: what
super update: what. getColorSelector ifNotNil: [:sel | what == sel ifTrue: [self offColor: (model perform: sel)]].
getEnabledSelector ifNotNil: [:sel | what == sel ifTrue: [self enabled: (model perform: sel)]].
updateMap ifNotNil: [(updateMap at: what ifAbsent: []) + ifNotNil: [ :newTarget | self update: newTarget]]. - ifNotNilDo: [ :newTarget | self update: newTarget]]. !
squeak-dev@lists.squeakfoundation.org