The Trunk: ST80Tools-mt.10.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.10.mcz

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

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

Name: ST80Tools-mt.10
Author: mt
Time: 7 October 2019, 10:12:22.743231 am
UUID: b757a5fc-df08-4449-9e92-5a1d03b8ebdc
Ancestors: ST80Tools-mt.9

Complements System-mt.1112, which fixes and clean-up in the debugger infrastructure.

=============== Diff against ST80Tools-mt.9 ===============

Item was changed:
  ----- Method: ParagraphEditor>>debugIt (in category '*ST80Tools') -----
  debugIt
 
+ | receiver context helperProcess |
- | receiver context |
  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'].!
- (self compileSelectionFor: receiver in: context) ifNotNil: [:method |
- ToolSet debugMethod: method forReceiver: receiver inContext: context].!