[squeak-dev] The Trunk: 45Deprecated-fbs.5.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Jul 6 15:32:11 UTC 2013
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!
More information about the Squeak-dev
mailing list
|