The Trunk: System-cmm.751.mcz

> Chris Muller uploaded a new version of System to project The Trunk:
> http://source.squeak.org/trunk/System-cmm.751.mcz
>
> ==================== Summary ====================
>
> Name: System-cmm.751
> Author: cmm
> Time: 2 July 2015, 11:24:19.221 am
> UUID: 1bf201e2-c482-44b3-8685-e31275e4b2a2
> Ancestors: System-eem.750
>
> Restore classic Warning window because it supports application-formatted messages which can wrap and scroll as needed.
>
> =============== Diff against System-eem.750 ===============
>
> 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 computation."
> +       UnhandledError signalForException: self!
> -       "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] }!
>
>