David T. Lewis uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-dtl.125.mcz

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

Name: ST80-dtl.125
Author: dtl
Time: 28 February 2011, 8:33:38.792 pm
UUID: 4e3f6978-87b4-4996-b710-b2bd7993f0bf
Ancestors: ST80-nice.124

Add Debugger class>>mvcOpenOn:context:label:contents:fullView: as dispatch target for opening a debugger in MVC.

=============== Diff against ST80-nice.124 ===============

Item was added:
+ ----- Method: Debugger class>>mvcOpenOn:context:label:contents:fullView: (in category '*ST80-opening') -----
+ mvcOpenOn: process context: context label: title contents: contentsStringOrNil fullView: bool
+ 	"Open a notifier in response to an error, halt, or notify. A notifier view just shows a short view of the sender stack and provides a menu that lets the user open a full debugger."
+ 
+ 	| controller debugger |
+ 	controller := ScheduledControllers activeControllerProcess == process
+ 				ifTrue: [ScheduledControllers activeController].
+ 	[debugger := self new
+ 				process: process
+ 				controller: controller
+ 				context: context.
+ 	bool
+ 		ifTrue: [debugger openFullNoSuspendLabel: title]
+ 		ifFalse: [debugger openNotifierContents: contentsStringOrNil label: title].
+ 	Preferences logDebuggerStackToFile
+ 		ifTrue: [Smalltalk logSqueakError: title inContext: context]
+ 	] on: Error do: [:ex |
+ 			self primitiveError: 'Original error: ' , title asString , '.
+ 			Debugger error: ' , ([ex description]
+ 							on: Error
+ 							do: ['a ' , ex class printString]) , ':'].
+ 	process suspend!