The Trunk: Tools-ct.904.mcz

Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ct.904.mcz

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

Name: Tools-ct.904
Author: ct
Time: 3 October 2019, 12:50:44.829083 am
UUID: de2580f2-be4a-2546-b695-7c658ff3e1fe
Ancestors: Tools-ul.899

Adds link to turn off warnings in ToolSet>>#handleWarning:

=============== Diff against Tools-ul.899 ===============

Item was changed:
  ----- Method: StandardToolSet class>>handleWarning: (in category 'debugging - handlers') -----
  handleWarning: aWarning
  "Double dispatch. Let the active process take care of that warning, which usually calls back here to #debugProcess:..."
 
+ | message |
+ message := TextStream with: aWarning messageText asText.
+ message cr; cr; nextPutAll: 'Select Proceed to continue, or close this window to cancel the operation.' translated.
+ (aWarning class respondsTo: #turnOffWarnings) ifTrue: [
+ message cr; cr;
+ withAttribute: (PluggableTextAttribute evalBlock: [
+ aWarning class turnOffWarnings.
+ self inform: 'Preferences were updated.' translated])
+ do: [message nextPutAll: 'Turn off these warnings' translated]].
  ^ Processor activeProcess
  debug: aWarning signalerContext
  title: 'Warning' translated
  full: false
+ contents: message contents!
- contents: aWarning messageText , '\\Select Proceed to continue, or close this window to cancel the operation.' withCRs translated!