[Pkg] The Trunk: System-fbs.559.mcz

[commits at source.squeak.org]

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

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

Name: System-fbs.559
Author: fbs
Time: 6 July 2013, 4:32:55.29 pm
UUID: a20dc73a-861d-2c4f-9056-001fb1674d8b
Ancestors: System-fbs.558

Move deprecated System messages to 45Deprecated.

=============== Diff against System-fbs.558 ===============

Item was removed:
- ----- Method: MessageTally>>close (in category 'initialize-release') -----
- close
- 
- 	self deprecated: 'Use MessageTally >> #terminateTimerProcess'.
- 	Timer ifNotNil: [ Timer terminate ].
- 	Timer := nil.
- 	class := method := tally := receivers := nil!

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

Item was removed:
- ----- Method: Preferences class>>toggleSoundEnabling (in category 'sound') -----
- toggleSoundEnabling
- 	self deprecated: 'Now uses pragma preference, and is stored in SoundService'.
-     SoundService toggleSoundEnabled!

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

Item was removed:
- ----- Method: SmalltalkImage>>do: (in category 'dictionary access') -----
- do: aBlock
- 	"Obsoleted."
- 
- 	self deprecated: 'Use Smalltalk globals'.
- 	^globals do: aBlock!

Item was removed:
- ----- Method: SmalltalkImage>>forgetDoIts (in category 'housekeeping') -----
- forgetDoIts	
- 	
- 	self deprecated: 'This method does not have to be sent anymore!!'
- !

Item was removed:
- ----- Method: SmalltalkImage>>includes: (in category 'dictionary access') -----
- includes: element
- 	"Obsoleted."
- 
- 	self deprecated: 'Use Smalltalk globals'.
- 	^globals includes: element!

Item was removed:
- ----- Method: SmalltalkImage>>keyAtIdentityValue:ifAbsent: (in category 'dictionary access') -----
- keyAtIdentityValue: anObject ifAbsent: aBlock
- 	"Obsoleted."
- 
- 	self deprecated: 'Use Smalltalk globals'.
- 	^globals keyAtIdentityValue: anObject ifAbsent: aBlock!

Item was removed:
- ----- Method: SmalltalkImage>>keyAtValue: (in category 'dictionary access') -----
- 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
- !

Item was removed:
- ----- Method: SmalltalkImage>>keys (in category 'dictionary access') -----
- keys
- 	"Obsoleted."
- 
- 	self deprecated: 'Use Smalltalk globals'.
- 	^globals keys!

Item was removed:
- ----- Method: SmalltalkImage>>keysAndValuesDo: (in category 'dictionary access') -----
- keysAndValuesDo: aBlock
- 	"Obsoleted."
- 
- 	self deprecated: 'Use Smalltalk globals'.
- 	^globals keysAndValuesDo: aBlock!

Item was removed:
- ----- Method: SmalltalkImage>>removeKey: (in category 'dictionary access') -----
- removeKey: key
- 	"Obsoleted."
- 
- 	self deprecated: 'Use Smalltalk globals'.
- 	^globals removeKey: key!

Item was removed:
- ----- Method: SmalltalkImage>>removeKey:ifAbsent: (in category 'dictionary access') -----
- removeKey: key ifAbsent: aBlock
- 	"Obsoleted."
- 
- 	self deprecated: 'Use Smalltalk globals'.
- 	^globals removeKey: key ifAbsent: aBlock!

Item was removed:
- ----- Method: SmalltalkImage>>scopeFor:from:envtAndPathIfFound: (in category 'dictionary access') -----
- scopeFor: varName from: lower envtAndPathIfFound: envtAndPathBlock
- 	"Obsoleted."
- 
- 	self deprecated: 'Use Smalltalk globals'.
- 	(globals includesKey: varName)
- 		ifTrue: [^ envtAndPathBlock value: self value: String new]
- 		ifFalse: [^ nil]!

Item was removed:
- ----- Method: SmalltalkImage>>size (in category 'dictionary access') -----
- size
- 	"Obsoleted."
- 
- 	self deprecated: 'Use Smalltalk globals'.
- 	^globals size!

Item was removed:
- ----- Method: SystemDictionary>>hasSpecialSelector:ifTrueSetByte: (in category 'compatibility') -----
- hasSpecialSelector: aLiteral ifTrueSetByte: aBlock
- 
- 	self deprecated: 'Use Smalltalk'.
- 	^Smalltalk hasSpecialSelector: aLiteral ifTrueSetByte: aBlock!

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

Item was removed:
- ----- Method: SystemNavigation>>selectAllMethods: (in category 'query') -----
- 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!

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

Item was removed:
- ----- Method: TextDiffBuilder class>>buildDisplayPatchFrom:to:inClass: (in category 'instance creation') -----
- buildDisplayPatchFrom: sourceText to: destinationText inClass: sourceClass 
- 	
- 	self deprecated: 'Use #buildDisplayPatchFrom:to:inClass:prettyDiffs:'.
- 	^self 
- 		buildDisplayPatchFrom: sourceText 
- 		to: destinationText
- 		inClass: sourceClass
- 		prettyDiffs: (Preferences valueOfFlag: #diffsWithPrettyPrint)!