<body><div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000">
Hi Christoph.<div><br></div><div>Please note that you changed the overall style of the method from single to multiple returns. You should mention that in your comment message.</div><div><br></div><div>Btw: Do you know about Object >> #perform:orSendTo:? :-)</div><div><br></div><div>Best,</div><div>Marcel</div><div class="mb_sig"></div><blockquote class="history_container" type="cite" style="border-left-style:solid;border-width:1px; margin-top:20px; margin-left:0px;padding-left:10px;">
<p style="color: #AAAAAA; margin-top: 10px;">Am 29.02.2020 11:29:45 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style="font-family:Arial,Helvetica,sans-serif">Christoph Thiede uploaded a new version of Morphic to project The Inbox:<br>http://source.squeak.org/inbox/Morphic-ct.1632.mcz<br><br>==================== Summary ====================<br><br>Name: Morphic-ct.1632<br>Author: ct<br>Time: 29 February 2020, 11:29:22.475896 am<br>UUID: 2d941b38-6604-cb43-bfbb-b7751aa2d55c<br>Ancestors: Morphic-mt.1631<br><br>Proposal: In Morph>>#balloonText, also try to invoke balloonSelector on model.<br><br>=============== Diff against Morphic-mt.1631 ===============<br><br>Item was changed:<br> ----- Method: Morph>>balloonText (in category 'accessing') -----<br> balloonText<br>+ "Answer balloon help text or nil, if no help is available."<br>+ "NB: subclasses may override such that they programatically construct the text, for economy's sake, such as model phrases in a Viewer."<br>- "Answer balloon help text or nil, if no help is available. <br>- NB: subclasses may override such that they programatically <br>- construct the text, for economy's sake, such as model phrases in <br>- a Viewer"<br> <br>+ | balloonSelector |<br>+ extension ifNil: [^ nil].<br>- | result |<br>- extension ifNil: [^nil].<br> <br> extension balloonText<br>+ ifNotNil: [:balloonText | ^ balloonText].<br>+ balloonSelector := extension balloonTextSelector<br>+ ifNil: [^ nil].<br>+ (ScriptingSystem helpStringOrNilFor: balloonSelector)<br>+ ifNotNil: [:result | ^ result].<br>+ balloonSelector == #methodComment<br>+ ifTrue: [^ self methodCommentAsBalloonHelp].<br>+ balloonSelector isUnary<br>+ ifTrue: [<br>+ (self respondsTo: balloonSelector)<br>+ ifTrue: [^ self perform: balloonSelector].<br>+ (self model respondsTo: balloonSelector)<br>+ ifTrue: [^ self model perform: balloonSelector]].<br>+ ^ nil!<br>- ifNotNil: [:balloonText | result := balloonText]<br>- ifNil: [extension balloonTextSelector<br>- ifNotNil: [:balloonSelector |<br>- result := ScriptingSystem helpStringOrNilFor: balloonSelector.<br>- (result isNil and: [balloonSelector == #methodComment]) <br>- ifTrue: [result := self methodCommentAsBalloonHelp].<br>- ((result isNil and: [balloonSelector numArgs = 0]) <br>- and: [self respondsTo: balloonSelector]) <br>- ifTrue: [result := self perform: balloonSelector]]].<br>- ^ result!<br><br><br></div></blockquote>
</div></body>