The Trunk: System-fbs.559.mcz

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)!