[Pkg] The Trunk: ST80Tools-mt.10.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Oct 7 08:12:23 UTC 2019


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].!



More information about the Packages mailing list