The Trunk: Kernel-mt.1279.mcz

Marcel Taeumel uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-mt.1279.mcz

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

Name: Kernel-mt.1279
Author: mt
Time: 22 November 2019, 11:32:11.080303 am
UUID: 5ebf13b5-8050-7243-812f-b74e0784b215
Ancestors: Kernel-mt.1278

Following the idea in Kernel-ct.1272 (inbox/treated), add the possibility to suppress warnings. Complements Tests-mt.423.

=============== Diff against Kernel-mt.1278 ===============

Item was removed:
- ----- Method: Deprecation class>>maybeSignalDeprecationFor:message:explanation: (in category 'utilities') -----
- maybeSignalDeprecationFor: context message: messageString explanation: explanationString
- self showDeprecationWarnings ifTrue:
- [ | message |
- message := context method reference, ' has been deprecated', messageString, '.'.
- explanationString ifNotEmpty: [message := message, ' ', explanationString].
- self signal: message].!

Item was added:
+ ----- Method: Deprecation class>>signalForContext:message:explanation: (in category 'instance creation') -----
+ signalForContext: context message: messageString explanation: explanationString
+
+ | message |
+ message := context method reference, ' has been deprecated', messageString, '.'.
+ explanationString ifNotEmpty: [message := message, ' ', explanationString].
+ self signal: message.!

Item was added:
+ ----- Method: Deprecation class>>suppressed (in category 'accessing') -----
+ suppressed
+
+ ^ self showDeprecationWarnings!

Item was added:
+ ----- Method: Deprecation class>>suppressed: (in category 'accessing') -----
+ suppressed: aBoolean
+
+ self showDeprecationWarnings: aBoolean.
+ super suppressed: aBoolean.!

Item was changed:
  ----- Method: Object>>backwardCompatibilityOnly: (in category 'error handling') -----
  backwardCompatibilityOnly: explanationString
  "Warn that the sending method has been deprecated. Methods that are tagt with #backwardCompatibility:
  are kept for compatibility."
 
  Deprecation
+ signalForContext: thisContext sender
- maybeSignalDeprecationFor: thisContext sender
  message: ' (but will be kept for compatibility)'
  explanation: explanationString!

Item was changed:
  ----- Method: Object>>deprecated (in category 'error handling') -----
  deprecated
  "Warn that the sending method has been deprecated."
 
  Deprecation
+ signalForContext: thisContext sender
- maybeSignalDeprecationFor: thisContext sender
  message: ''
  explanation: ''!

Item was changed:
  ----- Method: Object>>deprecated: (in category 'error handling') -----
  deprecated: explanationString
  "Warn that the sending method has been deprecated."
 
  Deprecation
+ signalForContext: thisContext sender
- maybeSignalDeprecationFor: thisContext sender
  message: ''
  explanation: explanationString!

Item was changed:
  ----- Method: Object>>deprecated:block: (in category 'error handling') -----
  deprecated: explanationString block: aBlock
  "Warn that the sender has been deprecated.  Answer the value of aBlock on resumption.  (Note that #deprecated: is usually the preferred method.)"
 
  Deprecation
+ signalForContext: thisContext sender
- maybeSignalDeprecationFor: thisContext sender
  message: ''
  explanation: explanationString.
+ ^ aBlock value
- ^ aBlock value.
  !

Item was changed:
  Notification subclass: #Warning
  instanceVariableNames: ''
  classVariableNames: ''
  poolDictionaries: ''
  category: 'Kernel-Exceptions'!
+ Warning class
+ instanceVariableNames: 'suppressed resetOnStartUp'!
 
  !Warning commentStamp: '<historical>' prior: 0!
  A Warning is a Notification which by default should be brought to the attention of the user.!
+ Warning class
+ instanceVariableNames: 'suppressed resetOnStartUp'!

Item was added:
+ ----- Method: Warning class>>cleanUp: (in category 'class initialization') -----
+ cleanUp: aggressive
+
+ aggressive ifTrue: [self resetAllWarnings].!

Item was added:
+ ----- Method: Warning class>>initialize (in category 'class initialization') -----
+ initialize
+
+ Smalltalk addToStartUpList: self.!

Item was added:
+ ----- Method: Warning class>>resetAllWarnings (in category 'suppress and reset') -----
+ resetAllWarnings
+
+ self withAllSubclassesDo: [:warningClass |
+ warningClass resetWarnings].!

Item was added:
+ ----- Method: Warning class>>resetOnStartUp (in category 'accessing') -----
+ resetOnStartUp
+ "If true, do not suppress this kind of warning anymore after image start up. This flag will be reset to false after doing this."
+
+ ^ resetOnStartUp ifNil: [false]!

Item was added:
+ ----- Method: Warning class>>resetOnStartUp: (in category 'accessing') -----
+ resetOnStartUp: aBoolean
+
+ resetOnStartUp := aBoolean.!

Item was added:
+ ----- Method: Warning class>>resetWarnings (in category 'suppress and reset') -----
+ resetWarnings
+
+ self suppressed: false.
+ self resetOnStartUp: false.!

Item was added:
+ ----- Method: Warning class>>signal (in category 'instance creation') -----
+ signal
+
+ ^ self signal: nil!

Item was added:
+ ----- Method: Warning class>>signal: (in category 'instance creation') -----
+ signal: signalerText
+
+ ^ self suppressed
+ ifTrue: [nil]
+ ifFalse: [self new signal: signalerText]!

Item was added:
+ ----- Method: Warning class>>startUp: (in category 'class initialization') -----
+ startUp: resuming
+
+ resuming ifTrue: [
+ self withAllSubclassesDo: [:warningClass |
+ warningClass resetOnStartUp ifTrue: [warningClass resetWarnings]]].!

Item was added:
+ ----- Method: Warning class>>suppressAndResetOnStartUp (in category 'suppress and reset') -----
+ suppressAndResetOnStartUp
+ "Suppress this kind of warning but reset that after the next image start up."
+
+ self suppressed: true.
+ self resetOnStartUp: true.!

Item was added:
+ ----- Method: Warning class>>suppressWarnings (in category 'suppress and reset') -----
+ suppressWarnings
+ "Suppress this kind of warning."
+
+ self suppressed: true.!

Item was added:
+ ----- Method: Warning class>>suppressed (in category 'accessing') -----
+ suppressed
+
+ ^ suppressed ifNil: [false]!

Item was added:
+ ----- Method: Warning class>>suppressed: (in category 'accessing') -----
+ suppressed: aBoolean
+
+ suppressed := aBoolean.!