[squeak-dev] The Trunk: ST80-mt.192.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Feb 15 14:35:55 UTC 2016


Marcel Taeumel uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-mt.192.mcz

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

Name: ST80-mt.192
Author: mt
Time: 15 February 2016, 3:35:44.419019 pm
UUID: 8447768d-961c-4215-9d96-a53d4659d658
Ancestors: ST80-mt.191

Make all possible entry points in Debugger (via StandardToolSet) consistently use project-prefix dispatch.

=============== Diff against ST80-mt.191 ===============

Item was added:
+ ----- Method: Debugger class>>mvcContext: (in category '*ST80-instance creation') -----
+ mvcContext: aContext
+ 	"Answer an instance of me for debugging the active process starting with the given context."
+ 
+ 	^ self new
+ 		process: Processor activeProcess
+ 		controller: (ScheduledControllers inActiveControllerProcess
+ 							ifTrue: [ScheduledControllers activeController]
+ 							ifFalse: [nil])
+ 		context: aContext!

Item was added:
+ ----- Method: Debugger class>>mvcOpenContext:label:contents: (in category '*ST80-opening') -----
+ mvcOpenContext: aContext label: aString contents: contentsStringOrNil
+ 	"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."
+ 	<primitive: 19> "Simulation guard"
+ 	ErrorRecursion not & Preferences logDebuggerStackToFile ifTrue:
+ 		[Smalltalk logSqueakError: aString inContext: aContext].
+ 	ErrorRecursion ifTrue:[
+ 		ErrorRecursion := false.
+ 		self primitiveError: aString].
+ 	ErrorRecursion := true.
+ 	self informExistingDebugger: aContext label: aString.
+ 	(Debugger mvcContext: aContext)
+ 		openNotifierContents: contentsStringOrNil
+ 		label: aString.
+ 	ErrorRecursion := false.
+ 	Processor activeProcess suspend.!

Item was added:
+ ----- Method: Debugger class>>mvcOpenInterrupt:onProcess: (in category '*ST80-opening') -----
+ mvcOpenInterrupt: aString onProcess: interruptedProcess
+ 	"Open a notifier in response to an interrupt. An interrupt occurs when the user types the interrupt key (cmd-. on Macs, ctrl-c or alt-. on other systems) or when the low-space watcher detects that memory is low."
+ 	| debugger |
+ 	<primitive: 19> "Simulation guard"
+ 	debugger := self new.
+ 	debugger
+ 		process: interruptedProcess
+ 		controller: (ScheduledControllers activeControllerProcess == interruptedProcess
+ 				ifTrue: [ScheduledControllers activeController]
+ 				ifFalse: [nil])
+ 		context: interruptedProcess suspendedContext.
+ 	debugger externalInterrupt: true.
+ 
+ 	Preferences logDebuggerStackToFile ifTrue:
+ 		[(aString includesSubstring: 'Space') & (aString includesSubstring: 'low')
+ 			ifTrue: [Smalltalk logError: aString inContext: debugger interruptedContext to: 'LowSpaceDebug.log']
+ 			"logging disabled for 4.3 release, see
+ 				http://lists.squeak.org/pipermail/squeak-dev/2011-December/162503.html"
+ 			"ifFalse: [Smalltalk logSqueakError: aString inContext: debugger interruptedContext]"].
+ 
+ 	Preferences eToyFriendly ifTrue: [World stopRunningAll].
+ 	^debugger
+ 		openNotifierContents: nil label: aString;
+ 		yourself
+ !



More information about the Squeak-dev mailing list