Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ul.359.mcz
==================== Summary ====================
Name: Tools-ul.359 Author: ul Time: 7 June 2011, 12:06:38.868 pm UUID: cd2ef60b-0f56-224f-80d9-ec6db504af26 Ancestors: Tools-cmm.358, Tools-ul.357
Merged.
=============== Diff against Tools-cmm.358 ===============
Item was changed: ----- Method: ParagraphEditor>>debug:receiver:in: (in category '*Tools') ----- 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: ((Smalltalk isMorphic not and: [ScheduledControllers inActiveControllerProcess]) ifTrue: [ScheduledControllers activeController] ifFalse: [nil]) context: context. debugger openFullNoSuspendLabel: 'Debug it'. [debugger interruptedContext method == aCompiledMethod] + whileFalse: [debugger send]! - whileFalse: [debugger send]. - anObject class basicRemoveSelector: selector!
packages@lists.squeakfoundation.org