[squeak-dev] The Trunk: Morphic-tpr.1392.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Feb 1 23:58:25 UTC 2018


tim Rowledge uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-tpr.1392.mcz

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

Name: Morphic-tpr.1392
Author: tpr
Time: 1 February 2018, 3:57:56.837746 pm
UUID: aba8b7c8-c8f4-4293-bcda-18c504122d6b
Ancestors: Morphic-mt.1391

Preliminary support for changes involved in removing the Project>>dispatchTo:addPrefixAndSend:withArguments: method.

=============== Diff against Morphic-mt.1391 ===============

Item was removed:
- ----- Method: Debugger class>>morphicContext: (in category '*Morphic-instance creation') -----
- morphicContext: aContext
- 	"Answer an instance of me for debugging the active process starting with the given context."
- 
- 	^ self new
- 		process: Processor activeProcess
- 		controller: nil
- 		context: aContext!

Item was removed:
- ----- Method: Debugger class>>morphicOpenContext:label:contents: (in category '*Morphic-opening') -----
- morphicOpenContext: 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."
- 	"Simulation guard"
- 	<primitive: 19>
- 	ErrorRecursionGuard critical:
- 		[ 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 morphicContext: aContext)
- 			openNotifierContents: contentsStringOrNil
- 			label: aString.
- 		ErrorRecursion := false].
- 	Processor activeProcess suspend !

Item was removed:
- ----- Method: Debugger class>>morphicOpenInterrupt:onProcess: (in category '*Morphic-opening') -----
- morphicOpenInterrupt: 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: 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: [Project current world stopRunningAll].
- 	^debugger
- 		openNotifierContents: nil label: aString;
- 		yourself
- !

Item was added:
+ ----- Method: Debugger class>>openContext:label:contents: (in category '*Morphic-opening') -----
+ 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."
+ 	"Simulation guard"
+ 	<primitive: 19>
+ 	ErrorRecursionGuard critical:
+ 		[ 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 added:
+ ----- Method: Debugger class>>openInterrupt:onProcess: (in category '*Morphic-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: (ScheduledControllers
+ 				ifNotNil: [:sc | 
+ 					"this means we are in an MVC project"
+ 					sc inActiveControllerProcess == interruptedProcess
+ 						ifTrue: [ScheduledControllers activeController]])
+ 		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: [Project current world stopRunningAll].
+ 	^debugger
+ 		openNotifierContents: nil label: aString;
+ 		yourself
+ !



More information about the Squeak-dev mailing list