[Pkg] The Trunk: 39Deprecated-dtl.16.mcz

[commits at source.squeak.org]

David T. Lewis uploaded a new version of 39Deprecated to project The Trunk:
http://source.squeak.org/trunk/39Deprecated-dtl.16.mcz

==================== Summary ====================

Name: 39Deprecated-dtl.16
Author: dtl
Time: 29 November 2009, 10:14:57 am
UUID: a2c71720-f30a-4daa-ad96-f74cc9678e3a
Ancestors: 39Deprecated-dtl.15

Remove deprecated methods. All but eight have been removed, these are:

ContextPart>>methodSelector "Is this is really unused?"
SharedQueue2>>flush "Compatibility with SharedQueue protocol"
SharedQueue2>>flushAllSuchThat: "Compatibility with SharedQueue protocol"
SharedQueue2>>removeAll "Compatibility with SharedQueue protocol"
SharedQueue2>>removeAllSuchThat: "Compatibility with SharedQueue protocol"
SystemDictionary>>getFileNameFromUser "SmalltalkImage current is proposed replacement"
SystemDictionary>>scopeFor:from:envtAndPathIfFound: "Sent by ClassDescription>>definition"
SystemDictionary>>vmParameterAt: "SmalltalkImage current is proposed replacement"


=============== Diff against 39Deprecated-dtl.15 ===============

Item was removed:
- ----- Method: ClassDescription>>letUserReclassify: (in category '*39Deprecated') -----
- letUserReclassify: anElement
- 	"Put up a list of categories and solicit one from the user.  
- 	Answer true if user indeed made a change, else false"
- 	
- 	self deprecated: 'Use CodeHolder>>letUserReclassify: anElement in: aClass'.
- 	CodeHolder new letUserReclassify: anElement in: self.!

Item was removed:
- ----- Method: ClassDescription>>methods (in category '*39Deprecated') -----
- methods
- 	"Answer a ClassCategoryReader for compiling messages that are not classified, as in fileouts made with Smalltalk/V"
- 	self deprecated: 'Is this used?'.
- 	^ ClassCategoryReader new setClass: self category: ClassOrganizer default!

Item was removed:
- ----- Method: SystemDictionary>>atOrAbove:ifAbsent: (in category '*39Deprecated') -----
- atOrAbove: key ifAbsent: absentBlock
- 	"Compatibility with environment protocol."
- 
- 	self deprecated: 'use at:ifAbsent:'.
- 	^ self at: key ifAbsent: absentBlock!

Item was removed:
- ----- Method: SystemDictionary>>associationAtOrAbove:ifAbsent: (in category '*39Deprecated') -----
- associationAtOrAbove: varName ifAbsent: absentBlock 
- 	"Compatibility with environment protocol."
- 
- 	self deprecated: 'use associationAt:ifAbsent:'.
- 	^ self associationAt: varName ifAbsent: absentBlock!

Item was removed:
- ----- Method: CompiledMethod>>decompileTree (in category '*39Deprecated') -----
- decompileTree
- 	self deprecated: 'just use #decompile'.
- 	^self decompile.!

Item was removed:
- ----- Method: Object>>beep: (in category '*39Deprecated') -----
- beep: soundName
- 	"Make the given sound, unless the making of sound is disabled in Preferences."
- 
- 	self deprecated: 'Use SampledSound>>playSoundNamed: instead.'.
- 	Preferences soundsEnabled
- 		ifTrue: [self playSoundNamed: soundName]
- !

Item was removed:
- ----- Method: Utilities class>>browseVersionsForClass:selector: (in category '*39Deprecated') -----
- browseVersionsForClass: aClass selector: aSelector
- 	self deprecated: 'Use VersionsBrowser browseVersionsForClass: aClass selector: aSelector instead'.
- 	VersionsBrowser browseVersionsForClass: aClass selector: aSelector!

Item was removed:
- ----- Method: Object>>beep (in category '*39Deprecated') -----
- beep
- 	"Deprecated."
- 	
- 	self deprecated: 'Use Beeper class>>beep instead.'.
- 	Beeper beep!

Item was removed:
- ----- Method: Object>>ifKindOf:thenDo: (in category '*39Deprecated') -----
- ifKindOf: aClass thenDo: aBlock
- 	self deprecated: 'Deprecated. Just use #isKindOf:'.
- 	^ (self isKindOf: aClass) ifTrue: [aBlock value: self]!

Item was removed:
- ----- Method: Object>>contentsGetz: (in category '*39Deprecated') -----
- contentsGetz: x
- 	self deprecated: 'there is no method named contents in object and in addition only one sender in a method not called'. 
- 	self contents: x!

Item was removed:
- ----- Method: Utilities class>>fileOutChangeSetsNamed: (in category '*39Deprecated') -----
- fileOutChangeSetsNamed: nameList
- 	"File out the list of change sets whose names are provided"
-      self deprecated: 'Use ChangeSet fileOutChangeSetsNamed: nameList'.
- 	ChangeSet fileOutChangeSetsNamed: nameList!

Item was removed:
- ----- Method: PasteUpMorph>>bringFlapTabsToFront (in category '*39Deprecated') -----
- bringFlapTabsToFront
- 	self deprecated: 'Replaced by #bringTopmostsToFront'.
- 	(submorphs select:[:m| m wantsToBeTopmost]) do:[:m| self addMorphInLayer: m].!

Item was removed:
- ----- Method: ClassDescription>>categoryFromUserWithPrompt: (in category '*39Deprecated') -----
- categoryFromUserWithPrompt: aPrompt
- 	"SystemDictionary categoryFromUserWithPrompt: 'testing'"
- 
- 	self deprecated: 'Use CodeHolder>>categoryFromUserWithPrompt: aPrompt for: aClass instead'.
- 	"this deprecation helps to remove UI dependency from the core of Squeak.
- 	Normally only CodeHolder was calling this method"
- 	CodeHolder new categoryFromUserWithPrompt: aPrompt for: self!

Item was removed:
- ----- Method: SystemDictionary>>atOrBelow:ifAbsent: (in category '*39Deprecated') -----
- atOrBelow: key ifAbsent: absentBlock
- 	"Compatibility with environment protocol."
- 	
- 	self deprecated: 'use at:ifAbsent:'.
- 	^ self at: key ifAbsent: absentBlock!

Item was removed:
- ----- Method: SystemDictionary>>includesKeyOrAbove: (in category '*39Deprecated') -----
- includesKeyOrAbove: key
- 	"Compatibility with environment protocol."
- 
- 	self deprecated: 'use includesKey:'.
- 	self at: key ifAbsent: [^ false].
- 	^ true!

Item was removed:
- ----- Method: Object>>deprecated:explanation: (in category '*39Deprecated') -----
- deprecated: aBlock explanation: aString 
- 	 "This method is OBSOLETE.  Use #deprecated:block: instead."
- 	self deprecated: 'Use Object>>deprecated:block: instead of deprecated:explanation:.'.
- 
- 	Preferences showDeprecationWarnings ifTrue:
- 		[Deprecation
- 			signal: ('{1} has been deprecated. {2}' translated format: {thisContext sender printString. aString})].
- 	^ aBlock value.
- !

Item was removed:
- ----- Method: Object>>beepPrimitive (in category '*39Deprecated') -----
- beepPrimitive
- 	"Deprecated. Beep in the absence of sound support."
- 	
- 	self deprecated: 'Use Beeper class>>beep or Beeper class>>beepPrimitive instead.'.
- 	Beeper beepPrimitive!

Item was removed:
- ----- Method: SystemDictionary>>environmentForCategory: (in category '*39Deprecated') -----
- environmentForCategory: catName 
- 	"Default response for non-partitioned systems"
- 	self deprecated: 'deprecated'.
- 	^ self!

Item was removed:
- ----- Method: Object>>deprecatedExplanation: (in category '*39Deprecated') -----
- deprecatedExplanation: aString
-      "This method is OBSOLETE.  Use #deprecated: instead."
- 	self deprecated: 'Use Object>>deprecated: instead of deprecatedExplanation:.'.
- 
- 	Preferences showDeprecationWarnings ifTrue:
- 		[Deprecation signal: ('{1} has been deprecated. {2}' translated format: {thisContext sender printString. aString})]!

Item was removed:
- ----- Method: Object>>doIfNotNil: (in category '*39Deprecated') -----
- doIfNotNil: aBlock
- 	self deprecated: 'use ifNotNilDo:'.
- 	^ self ifNotNilDo: aBlock
- !

Item was removed:
- ----- Method: MethodContext>>who (in category '*39Deprecated') -----
- who
- 	self deprecated: 'please use #methodClass and #selector'.
- 	
- 	self method ifNil: [^ #(unknown unkown)].
- 	^ {self methodClass . self selector}.
- !

Item was removed:
- ----- Method: Object>>playSoundNamed: (in category '*39Deprecated') -----
- playSoundNamed: soundName
- 	"Deprecated.
- 	Play the sound with the given name."
- 
- 	self deprecated: 'Use "SoundService default playSoundNamed: aName" instead.'.
- 	SoundService default playSoundNamed: soundName!