Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1632.mcz
==================== Summary ====================
Name: Morphic-ct.1632 Author: ct Time: 29 February 2020, 11:29:22.475896 am UUID: 2d941b38-6604-cb43-bfbb-b7751aa2d55c Ancestors: Morphic-mt.1631
Proposal: In Morph>>#balloonText, also try to invoke balloonSelector on model.
=============== Diff against Morphic-mt.1631 ===============
Item was changed: ----- Method: Morph>>balloonText (in category 'accessing') ----- balloonText + "Answer balloon help text or nil, if no help is available." + "NB: subclasses may override such that they programatically construct the text, for economy's sake, such as model phrases in a Viewer." - "Answer balloon help text or nil, if no help is available. - NB: subclasses may override such that they programatically - construct the text, for economy's sake, such as model phrases in - a Viewer"
+ | balloonSelector | + extension ifNil: [^ nil]. - | result | - extension ifNil: [^nil]. extension balloonText + ifNotNil: [:balloonText | ^ balloonText]. + balloonSelector := extension balloonTextSelector + ifNil: [^ nil]. + (ScriptingSystem helpStringOrNilFor: balloonSelector) + ifNotNil: [:result | ^ result]. + balloonSelector == #methodComment + ifTrue: [^ self methodCommentAsBalloonHelp]. + balloonSelector isUnary + ifTrue: [ + (self respondsTo: balloonSelector) + ifTrue: [^ self perform: balloonSelector]. + (self model respondsTo: balloonSelector) + ifTrue: [^ self model perform: balloonSelector]]. + ^ nil! - ifNotNil: [:balloonText | result := balloonText] - ifNil: [extension balloonTextSelector - ifNotNil: [:balloonSelector | - result := ScriptingSystem helpStringOrNilFor: balloonSelector. - (result isNil and: [balloonSelector == #methodComment]) - ifTrue: [result := self methodCommentAsBalloonHelp]. - ((result isNil and: [balloonSelector numArgs = 0]) - and: [self respondsTo: balloonSelector]) - ifTrue: [result := self perform: balloonSelector]]]. - ^ result!