The Trunk: 39Deprecated-dtl.16.mcz

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!