Frank Shearar uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-fbs.829.mcz==================== Summary ====================
Name: Kernel-fbs.829
Author: fbs
Time: 3 January 2014, 5:31:08.701 pm
UUID: 7385dbaa-8f76-6942-97a9-21b0f60037a4
Ancestors: Kernel-fbs.828
Move #showDeprecationWarnings preference to Deprecation.
=============== Diff against Kernel-fbs.828 ===============
Item was changed:
Warning subclass: #Deprecation
instanceVariableNames: ''
+ classVariableNames: 'ShowDeprecationWarnings'
- classVariableNames: ''
poolDictionaries: ''
category: 'Kernel-Exceptions'!
!Deprecation commentStamp: 'dew 5/21/2003 17:46' prior: 0!
This Warning is signalled by methods which are deprecated.
The use of Object>>#deprecatedExplanation: aString and Object>>#deprecated: aBlock explanation: aString is recommended.
Idiom: Imagine I want to deprecate the message #foo.
foo
^ 'foo'
I can replace it with:
foo
self deprecatedExplanation: 'The method #foo was not good. Use Bar>>newFoo instead.'
^ 'foo'
Or, for certain cases such as when #foo implements a primitive, #foo can be renamed to #fooDeprecated.
fooDeprecated
^ <primitive>
foo
^ self deprecated: [self fooDeprecated] explanation: 'The method #foo was not good. Use Bar>>newFoo instead.'
!
Item was added:
+ ----- Method: Deprecation class>>showDeprecationWarnings (in category 'preferences') -----
+ showDeprecationWarnings
+ <preference: 'Show deprecation warnings' category: 'debug' description: 'Warn the user when a deprecated method is used.' type: #Boolean>
+ ^ ShowDeprecationWarnings ifNil: [false]!
Item was added:
+ ----- Method: Deprecation class>>showDeprecationWarnings: (in category 'preferences') -----
+ showDeprecationWarnings: aBoolean
+ ShowDeprecationWarnings := aBoolean.!
Item was changed:
+ (PackageInfo named: 'Kernel') postscript: 'Deprecation showDeprecationWarnings: Preferences showDeprecationWarnings.
+ Preferences removePreference: #showDeprecationWarnings.'!
- (PackageInfo named: 'Kernel') postscript: 'DateAndTime classPool at: #OffsetsAreValid put: true.
- Timespan withAllSubclassesDo: [ : each | each initialize ].
- HashedCollection rehashAll.
- "add this comment for forcing a change detection and a rehashAll..."'!