The Trunk: ST80Tools-mt.13.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: ST80Tools-mt.13.mcz

commits-2
Marcel Taeumel uploaded a new version of ST80Tools to project The Trunk:
http://source.squeak.org/trunk/ST80Tools-mt.13.mcz

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

Name: ST80Tools-mt.13
Author: mt
Time: 15 March 2021, 11:25:18.388586 am
UUID: 21c1bd8b-9aa9-af45-82ad-dc592a3f9333
Ancestors: ST80Tools-mt.12

Complements Kernel-mt.1381

Fixes for debugger invocation during code simulation. See  http://forum.world.st/Please-try-out-Fixes-for-debugger-invocation-during-code-simulation-td5127684.html

=============== Diff against ST80Tools-mt.12 ===============

Item was changed:
  ----- Method: ParagraphEditor>>debugIt (in category '*ST80Tools') -----
  debugIt
 
  | receiver context helperProcess |
  self lineSelectAndEmptyCheck: [^self].
 
  (model respondsTo: #doItReceiver)
  ifTrue: [receiver := model doItReceiver].
 
  (model respondsTo: #doItContext)
  ifTrue: [context := model doItContext].
 
  (self compileSelectionFor: receiver in: context) ifNotNil: [:doItMethod |
  helperProcess := context
  ifNil: [self assert: doItMethod selector = #DoIt.
  Process forMethod: doItMethod receiver: receiver]
  ifNotNil: [self assert: doItMethod selector = #DoItIn:.
  Process forMethod: doItMethod receiver: receiver arguments: {context}].
+ helperProcess debugWithTitle: 'Debug it' translated].!
- helperProcess debugWithTitle: 'Debug it'].!