The Trunk: Morphic-mt.757.mcz

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

==================== 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
- !