The Trunk: 45Deprecated-fbs.6.mcz

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

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

Name: 45Deprecated-fbs.6
Author: fbs
Time: 6 July 2013, 4:39:00.871 pm
UUID: 24faca0f-b7ca-2c40-9f9b-550d101216b5
Ancestors: 45Deprecated-fbs.5

Actually deprecate the deprecated Kernel methods.

=============== Diff against 45Deprecated-fbs.5 ===============

Item was added:
+ ----- Method: Behavior>>whichSelectorsAssign: (in category '*45Deprecated') -----
+ whichSelectorsAssign: instVarName
+ "Answer a Set of selectors whose methods store into the argument,
+ instVarName, as a named instance variable."
+
+ self deprecated: 'Use #whichSelectorsStoreInto:.'.
+ ^self whichSelectorsStoreInto: instVarName!

Item was added:
+ ----- Method: CompiledMethod>>setMySourcePointer: (in category '*45Deprecated') -----
+ setMySourcePointer: srcPointer
+
+ self deprecated: 'Use #setSourcePointer: '.
+
+ ^ self setSourcePointer: srcPointer!

Item was added:
+ ----- Method: Integer>>asStringWithCommasSigned (in category '*45Deprecated') -----
+ asStringWithCommasSigned
+ "123456789 asStringWithCommasSigned"
+ "-123456789 asStringWithCommasSigned"
+ | digits |
+ self deprecated: 'Use #asStringWithCommasSigned:'.
+ digits := self abs printString.
+ ^ String streamContents:
+ [:strm |
+ self sign = -1 ifTrue: [strm nextPut: $-] ifFalse:[strm nextPut: $+].
+ 1 to: digits size do:
+ [:i | strm nextPut: (digits at: i).
+ (i < digits size and: [(i - digits size) \\ 3 = 0])
+ ifTrue: [strm nextPut: $,]]]!

Item was added:
+ ----- Method: Integer>>raisedToInteger:modulo: (in category '*45Deprecated') -----
+ raisedToInteger: exp modulo: m
+ self deprecated: 'rather use #raisedTo:modulo: for efficiency'.
+ (exp = 0) ifTrue: [^ 1].
+ exp even
+ ifTrue: [^ (self raisedToInteger: (exp // 2) modulo: m) squared \\ m]
+ ifFalse: [^ (self * (self raisedToInteger: (exp - 1) modulo: m)) \\ m].!

Item was added:
+ ----- Method: MethodDictionary>>methodArray (in category '*45Deprecated') -----
+ methodArray
+
+ self deprecated: 'Use #array'.
+ ^array!

Item was added:
+ ----- Method: Number>>isInf (in category '*45Deprecated') -----
+ isInf
+ self deprecated: 'Use #isInfinite instead'.
+ ^self isInfinite!