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