[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