The Trunk: 51Deprecated-mt.11.mcz

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
  !