The Trunk: 45Deprecated-fbs.5.mcz

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!