[squeak-dev] The Trunk: Morphic-mt.757.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Feb 3 11:07:21 UTC 2015

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:

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

Name: Morphic-mt.757
Author: mt
Time: 3 February 2015, 12:06:47.624 pm
UUID: 584dd819-8f9d-0e4a-a0cc-9449a4180066
Ancestors: Morphic-cmm.756

Let CMD+. use the current ToolSet to open the debugger. This is now consistent with the way exceptions do it.

=============== Diff against Morphic-cmm.756 ===============

Item was changed:
  ----- Method: MorphicProject>>interruptName:preemptedProcess: (in category 'utilities') -----
  interruptName: labelString preemptedProcess: theInterruptedProcess
  	"Create a Notifier on the active scheduling process with the given label."
  	| preemptedProcess projectProcess |
  	ActiveHand ifNotNil:[ActiveHand interrupted].
  	ActiveWorld := World. "reinstall active globals"
  	ActiveHand := World primaryHand.
  	ActiveHand interrupted. "make sure this one's interrupted too"
  	ActiveEvent := nil.
  	projectProcess := self uiProcess.	"we still need the accessor for a while"
  	preemptedProcess := theInterruptedProcess ifNil: [Processor preemptedProcess].
  	"Only debug preempted process if its priority is >= projectProcess' priority"
  	preemptedProcess priority < projectProcess priority 
  		ifTrue:[preemptedProcess := projectProcess].
  	preemptedProcess suspend.
+ 	ToolSet interrupt: preemptedProcess label: labelString.!
- 	Debugger openInterrupt: labelString onProcess: preemptedProcess
- !

More information about the Squeak-dev mailing list