[squeak-dev] The Trunk: Tools-mt.671.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Feb 15 14:38:32 UTC 2016


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

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

Name: Tools-mt.671
Author: mt
Time: 15 February 2016, 3:38:15.751019 pm
UUID: ef07dc4d-2a23-43b9-97a3-04d629998ebb
Ancestors: Tools-mt.670

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

=============== Diff against Tools-mt.670 ===============

Item was changed:
  ----- Method: Debugger class>>context: (in category 'instance creation') -----
  context: aContext
  	"Answer an instance of me for debugging the active process starting with the given context."
  
+ 	^ Project current
+ 		dispatchTo: self
+ 		addPrefixAndSend: #Context:
+ 		withArguments: { aContext }!
- 	^ self new
- 		process: Processor activeProcess
- 		controller:
- 			((Smalltalk isMorphic not and: [ScheduledControllers inActiveControllerProcess])
- 				ifTrue: [ScheduledControllers activeController]
- 				ifFalse: [nil])
- 		context: aContext!

Item was changed:
+ ----- Method: Debugger class>>openContext:label:contents: (in category 'opening') -----
- ----- Method: Debugger class>>openContext:label:contents: (in category 'class initialization') -----
  openContext: 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."
+ 
+ 	^ Project current
+ 		dispatchTo: self
+ 		addPrefixAndSend: #OpenContext:label:contents:
+ 		withArguments: { aContext . aString . contentsStringOrNil }!
- 	<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 context: aContext)
- 		openNotifierContents: contentsStringOrNil
- 		label: aString.
- 	ErrorRecursion := false.
- 	Processor activeProcess suspend.
- !

Item was changed:
  ----- Method: Debugger class>>openInterrupt:onProcess: (in category 'opening') -----
  openInterrupt: 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: ((Smalltalk isMorphic not
- 					and: [ScheduledControllers activeControllerProcess == interruptedProcess])
- 						ifTrue: [ScheduledControllers activeController])
- 		context: interruptedProcess suspendedContext.
- 	debugger externalInterrupt: true.
  
+ 	^ Project current
+ 		dispatchTo: self
+ 		addPrefixAndSend: #OpenInterrupt:onProcess:
+ 		withArguments: { aString . interruptedProcess }!
- 	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