[squeak-dev] The Trunk: ST80Tools-ct.15.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Apr 30 14:18:41 UTC 2022
Christoph Thiede uploaded a new version of ST80Tools to project The Trunk:
http://source.squeak.org/trunk/ST80Tools-ct.15.mcz
==================== Summary ====================
Name: ST80Tools-ct.15
Author: ct
Time: 30 April 2022, 4:18:08.682924 pm
UUID: 6031d20c-60bf-c341-aaf2-4109e66e0e73
Ancestors: ST80Tools-mt.14
Complements Morphic-ct.1978 (#debugExpression:requestor:). See also: ST80-ct.277.
=============== Diff against ST80Tools-mt.14 ===============
Item was changed:
----- Method: ParagraphEditor>>debugIt (in category '*ST80Tools') -----
debugIt
| receiver context helperProcess |
self lineSelectAndEmptyCheck: [^self].
+
+ (model respondsTo: #debugExpression:requestor:)
+ ifTrue: [^ model perform: #debugExpression:requestor: with: self selection with: self].
+ (model respondsTo: #debugExpression:)
+ ifTrue: [^ model perform: #debugExpression: with: self selection].
+
-
(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].!
More information about the Squeak-dev
mailing list
|