[squeak-dev] The Trunk: 51Deprecated-mt.11.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Nov 7 11:19:19 UTC 2015
Marcel Taeumel uploaded a new version of 51Deprecated to project The Trunk:
http://source.squeak.org/trunk/51Deprecated-mt.11.mcz
==================== Summary ====================
Name: 51Deprecated-mt.11
Author: mt
Time: 7 November 2015, 12:19:13.781 pm
UUID: b5f021aa-b317-4bf0-825b-3d8aae1ff1e4
Ancestors: 51Deprecated-mt.10
Adds deprecation warnings.
=============== Diff against 51Deprecated-mt.10 ===============
Item was changed:
----- 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 |
+ self deprecated: 'Balloon texts for tools are defined in their respective model classes. For example, see Browser >> #messageHelpAt:'.
+
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 changed:
----- 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 |
+ self deprecated: 'Balloon texts for tools are defined in their respective model classes. For example, see Browser >> #messageHelpAt:'.
+
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 changed:
----- 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 |
+ self deprecated: 'Balloon texts for tools are defined in their respective model classes. For example, see Browser >> #messageHelpAt:'.
+
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
!
More information about the Squeak-dev
mailing list
|