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!