The Trunk: System-cmm.751.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: System-cmm.751.mcz

commits-2
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] }!


Reply | Threaded
Open this post in threaded view
|

Re: The Trunk: System-cmm.751.mcz

Chris Muller-3
I will get a Squeak 4.6 release-candidate uploaded tonight or tomorrow
for your review.

On Thu, Jul 2, 2015 at 11:24 AM,  <[hidden email]> wrote:

> 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] }!
>
>