Frank Shearar uploaded a new version of 45Deprecated to project The Trunk:
http://source.squeak.org/trunk/45Deprecated-fbs.5.mcz

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

Name: 45Deprecated-fbs.5
Author: fbs
Time: 6 July 2013, 4:32:13.367 pm
UUID: 5330a44a-5fa0-2a43-a8b6-b3fc113dc0ee
Ancestors: 

Move deprecated System messages to 45Deprecated.

==================== Snapshot ====================

----- Method: TextDiffBuilder class>>buildDisplayPatchFrom:to:inClass: (in category '*45Deprecated') -----
buildDisplayPatchFrom: sourceText to: destinationText inClass: sourceClass 
	
	self deprecated: 'Use #buildDisplayPatchFrom:to:inClass:prettyDiffs:'.
	^self 
		buildDisplayPatchFrom: sourceText 
		to: destinationText
		inClass: sourceClass
		prettyDiffs: (Preferences valueOfFlag: #diffsWithPrettyPrint)!

----- Method: SmalltalkImage>>cleanUpUndoCommands (in category '*45Deprecated') -----
cleanUpUndoCommands
	
	self deprecated: 'This method was superseded by Command class >> #cleanUp'.
	globals at: #Command ifPresent: [ :command | command cleanUp ]!

----- Method: SmalltalkImage>>do: (in category '*45Deprecated') -----
do: aBlock
	"Obsoleted."

	self deprecated: 'Use Smalltalk globals'.
	^globals do: aBlock!

----- Method: SmalltalkImage>>forgetDoIts (in category '*45Deprecated') -----
forgetDoIts	
	
	self deprecated: 'This method does not have to be sent anymore!!'
!

----- Method: SmalltalkImage>>includes: (in category '*45Deprecated') -----
includes: element
	"Obsoleted."

	self deprecated: 'Use Smalltalk globals'.
	^globals includes: element!

----- Method: SmalltalkImage>>keyAtIdentityValue:ifAbsent: (in category '*45Deprecated') -----
keyAtIdentityValue: anObject ifAbsent: aBlock
	"Obsoleted."

	self deprecated: 'Use Smalltalk globals'.
	^globals keyAtIdentityValue: anObject ifAbsent: aBlock!

----- Method: SmalltalkImage>>keyAtValue: (in category '*45Deprecated') -----
keyAtValue: value
	"Answer the key that is the external name for the argument, value. If
	there is none, answer nil."

	self deprecated: 'Use Smalltalk globals'.
	^globals keyAtValue: value
!

----- Method: SmalltalkImage>>keys (in category '*45Deprecated') -----
keys
	"Obsoleted."

	self deprecated: 'Use Smalltalk globals'.
	^globals keys!

----- Method: SmalltalkImage>>keysAndValuesDo: (in category '*45Deprecated') -----
keysAndValuesDo: aBlock
	"Obsoleted."

	self deprecated: 'Use Smalltalk globals'.
	^globals keysAndValuesDo: aBlock!

----- Method: SmalltalkImage>>removeKey: (in category '*45Deprecated') -----
removeKey: key
	"Obsoleted."

	self deprecated: 'Use Smalltalk globals'.
	^globals removeKey: key!

----- Method: SmalltalkImage>>removeKey:ifAbsent: (in category '*45Deprecated') -----
removeKey: key ifAbsent: aBlock
	"Obsoleted."

	self deprecated: 'Use Smalltalk globals'.
	^globals removeKey: key ifAbsent: aBlock!

----- Method: SmalltalkImage>>scopeFor:from:envtAndPathIfFound: (in category '*45Deprecated') -----
scopeFor: varName from: lower envtAndPathIfFound: envtAndPathBlock
	"Obsoleted."

	self deprecated: 'Use Smalltalk globals'.
	(globals includesKey: varName)
		ifTrue: [^ envtAndPathBlock value: self value: String new]
		ifFalse: [^ nil]!

----- Method: SmalltalkImage>>size (in category '*45Deprecated') -----
size
	"Obsoleted."

	self deprecated: 'Use Smalltalk globals'.
	^globals size!

----- Method: SystemNavigation>>allMethodsNoDoitsSelect: (in category '*45Deprecated') -----
allMethodsNoDoitsSelect: aBlock 
	"Like allSelect:, but strip out Doits"
	
	self deprecated: 'Doits are not present in MethodDictionaries anymore. Use #allMethodsSelect:'.
	^self allMethodsSelect: aBlock!

----- Method: SystemNavigation>>selectAllMethods: (in category '*45Deprecated') -----
selectAllMethods: aBlock 
	"Answer a SortedCollection of each method that, when used as the block  
	argument to aBlock, gives a true result."
	
	self deprecated: 'Use #allMethodsSelect:'.
	^self allMethodsSelect: aBlock!

----- Method: SystemNavigation>>selectAllMethodsNoDoits: (in category '*45Deprecated') -----
selectAllMethodsNoDoits: aBlock 
	"Like allSelect:, but strip out Doits"
	
	self deprecated: 'Doits are not present in MethodDictionaries anymore. Use #allMethodsSelect:'.
	^self allMethodsSelect: aBlock!

----- Method: Preferences class>>soundEnablingString (in category '*45Deprecated') -----
soundEnablingString
	self deprecated: 'Ask the sound service for this'.
	^ SoundService soundEnablingString!

----- Method: Preferences class>>toggleSoundEnabling (in category '*45Deprecated') -----
toggleSoundEnabling
	self deprecated: 'Now uses pragma preference, and is stored in SoundService'.
    SoundService toggleSoundEnabled!

----- Method: SystemDictionary>>hasSpecialSelector:ifTrueSetByte: (in category '*45Deprecated') -----
hasSpecialSelector: aLiteral ifTrueSetByte: aBlock

	self deprecated: 'Use Smalltalk'.
	^Smalltalk hasSpecialSelector: aLiteral ifTrueSetByte: aBlock!

----- Method: MessageTally>>close (in category '*45Deprecated') -----
close

	self deprecated: 'Use MessageTally >> #terminateTimerProcess'.
	Timer ifNotNil: [ Timer terminate ].
	Timer := nil.
	class := method := tally := receivers := nil!