Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1623.mcz==================== Summary ====================
Name: Morphic-mt.1623
Author: mt
Time: 16 February 2020, 12:30:22.001951 pm
UUID: 7ee7b9be-f7ef-47b1-a3cb-418c45fb969f
Ancestors: Morphic-mt.1622
Fixes occasional error in lists that want to show the balloon text for items.
Thanks to Jakob (jr) for the tip!
=============== Diff against Morphic-mt.1622 ===============
Item was changed:
----- Method: PluggableListMorph>>balloonText (in category 'accessing') -----
balloonText
"Overridden to send selector to model and not self. Do not use #perform:orSendTo: because super does more than just the send.."
self getHelpSelector ifNotNil: [:selector |
+ (self model respondsTo: selector) ifTrue: [
+ | modelIndex |
+ (modelIndex := self modelIndexFor: self hoverRow) > 0 ifTrue: [
+ ^ self model perform: selector with: modelIndex]]].
- ((self model respondsTo: selector) and: [self hoverRow > 0]) ifTrue: [
- ^ self model perform: selector with: (self modelIndexFor: self hoverRow)]].
^ super balloonText!
Locked
