Levente Uzonyi uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ul.545.mcz
==================== Summary ====================
Name: Morphic-ul.545 Author: ul Time: 7 June 2011, 12:05:51.591 pm UUID: b5a49a7b-1b29-4b42-b2cb-108045265af2 Ancestors: Morphic-cmm.544, Morphic-ul.544
Merged.
=============== Diff against Morphic-cmm.544 ===============
Item was changed: ----- Method: TextEditor>>debug:receiver:in: (in category 'do-its') ----- debug: aCompiledMethod receiver: anObject in: evalContext
+ | guineaPig debugger context | + guineaPig := [ + anObject "Use primitive 188, because primitive 189 escapes the debugger somehow." + withArgs: (evalContext ifNil: [ #() ] ifNotNil: [ { evalContext } ]) + executeMethod: aCompiledMethod ] newProcess. - | selector guineaPig debugger context | - selector := evalContext isNil ifTrue: [#DoIt] ifFalse: [#DoItIn:]. - anObject class addSelectorSilently: selector withMethod: aCompiledMethod. - guineaPig := evalContext isNil - ifTrue: [[anObject DoIt] newProcess] - ifFalse: [[anObject DoItIn: evalContext] newProcess]. context := guineaPig suspendedContext. debugger := Debugger new process: guineaPig controller: nil context: context. debugger openFullNoSuspendLabel: 'Debug it'. + [ debugger interruptedContext method == aCompiledMethod ] + whileFalse: [ debugger send ]! - [debugger interruptedContext method == aCompiledMethod] - whileFalse: [debugger send]. - anObject class basicRemoveSelector: selector!
packages@lists.squeakfoundation.org