Marcel Taeumel uploaded a new version of 51Deprecated to project The Trunk:
http://source.squeak.org/trunk/51Deprecated-mt.10.mcz==================== Summary ====================
Name: 51Deprecated-mt.10
Author: mt
Time: 6 November 2015, 12:11:35.883 pm
UUID: 92916d21-c539-45f6-8766-ad9ace8cbae9
Ancestors: 51Deprecated-mt.9
Makes the preference #balloonHelpInMessageLists functional again.
Applies the preferences "Show message icons" and #balloonHelpInMessageLists also to senders, implementors, message traces, debuggers, etc.
=============== Diff against 51Deprecated-mt.9 ===============
Item was added:
+ ----- Method: StringMorph>>balloonTextForClassAndMethodString (in category '*51Deprecated-Tools') -----
+ balloonTextForClassAndMethodString
+ "Answer suitable balloon text for the receiver thought of as an encoding of the form
+ <className> [ class ] <selector>"
+
+ | aComment |
+ Preferences balloonHelpInMessageLists
+ ifFalse: [^ nil].
+ MessageSet parse: self contents asString toClassAndSelector:
+ [:aClass :aSelector |
+ (aClass notNil and: [aSelector notNil]) ifTrue:
+ [aComment := aClass precodeCommentOrInheritedCommentFor: aSelector]].
+ ^ aComment
+ !
Item was added:
+ ----- Method: StringMorph>>balloonTextForLexiconString (in category '*51Deprecated-Tools') -----
+ balloonTextForLexiconString
+ "Answer suitable balloon text for the receiver thought of as an encoding (used in Lexicons) of the form
+ <selector> <spaces> (<className>>)"
+
+ | aComment contentsString aSelector aClassName |
+ Preferences balloonHelpInMessageLists
+ ifFalse: [^ nil].
+ contentsString := self contents asString.
+ aSelector := contentsString upTo: $ .
+ aClassName := contentsString copyFrom: ((contentsString indexOf: $() + 1) to: ((contentsString indexOf: $)) - 1).
+ MessageSet parse: (aClassName, ' dummy') toClassAndSelector:
+ [:cl :sel | cl ifNotNil:
+ [aComment := cl precodeCommentOrInheritedCommentFor: aSelector]].
+ ^ aComment
+ !
Item was added:
+ ----- Method: StringMorph>>balloonTextForMethodString (in category '*51Deprecated-Tools') -----
+ balloonTextForMethodString
+ "Answer suitable balloon text for the receiver thought of as a method belonging to the currently-selected class of a browser tool."
+
+ | aWindow aCodeHolder aClass |
+ Preferences balloonHelpInMessageLists
+ ifFalse: [^ nil].
+ aWindow := self ownerThatIsA: SystemWindow.
+ (aWindow isNil or: [((aCodeHolder := aWindow model) isKindOf: CodeHolder) not])
+ ifTrue: [^ nil].
+ ((aClass := aCodeHolder selectedClassOrMetaClass) isNil or:
+ [(aClass includesSelector: contents asSymbol) not])
+ ifTrue: [^ nil].
+ ^ aClass precodeCommentOrInheritedCommentFor: contents asSymbol
+ !
Locked
