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!