Squeak 4.6: System-eem.750.mcz

Chris Muller uploaded a new version of System to project Squeak 4.6:
http://source.squeak.org/squeak46/System-eem.750.mcz

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

Name: System-eem.750
Author: eem
Time: 1 July 2015, 4:20:21.905 pm
UUID: dde31c47-a8ec-451a-a343-5820a048c91c
Ancestors: System-eem.749

Provide a defaultAction for Warning that gives the user the option of debugging, ignoring or terminating when a Warning is raised in normal execution, or allows the Debugger to handle it if a Warning is raised during debugging.

=============== Diff against System-eem.749 ===============

Item was changed:
  ----- Method: Warning>>defaultAction (in category '*System-exceptionDescription') -----
  defaultAction
+ "Inform the user of a Warning, giving them the choice of ignoring the warning (proceeding), debugging,
+ or terminating the compuation.  If in the context of a debugger, instead allow the debugger to display
+ the wasrning in context."
+ | inDebugger |
+ inDebugger := [UnhandledError signal]
+ on: UnhandledError
+ do: [:uhe| uhe isNested].
+ inDebugger ifTrue:
+ [^UnhandledError signalForException: self].
+ (UIManager default
+ chooseFrom: #(proceed debug close)
+ values: #(proceed debug close)
+ title: 'Warning: ', self messageText)
+ caseOf: {
+ [#proceed] -> [self resume].
+ [#debug] -> [UnhandledError signalForException: self].
+ [#close] -> [| condemned |
+ condemned := Processor activeProcess.
+ Project current spawnNewProcessIfThisIsUI: condemned.
+ condemned terminate] }!
- "The user should be notified of the occurrence of an exceptional occurrence and given an option of continuing or aborting the computation. The description of the occurrence should include any text specified as the argument of the #signal: message."
- ToolSet
- debugContext: thisContext
- label: 'Warning'
- contents: self messageText, '\\Select Proceed to continue, or close this window to cancel the operation.' withCRs.
- self resume.
- !