The Inbox: System-ct.1121.mcz

Am 15.11.2019 19:47:12 schrieb [hidden email] <[hidden email]>:

A new version of System was added to project The Inbox:
http://source.squeak.org/inbox/System-ct.1121.mcz

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

Name: System-ct.1121
Author: ct
Time: 15 November 2019, 7:46:50.580005 pm
UUID: 3a1b265a-b900-0f4f-b58f-2ec712db18ca
Ancestors: System-mt.1119

Add convenience method for debugging a block at a method.

=============== Diff against System-mt.1119 ===============

Item was added:
+ ----- Method: ToolSet class>>debugBlock:runUntilMethod:withTitle: (in category 'debugging') -----
+ debugBlock: aBlock runUntilMethod: aMethodReference withTitle: aString
+
+ | process |
+ process := Process forBlock: aBlock runUntil: [:context |
+ context method methodReference = aMethodReference].
+ process isTerminated ifTrue: [
+ ^ self inform: 'Method to debug was not reached'].
+ ^ process debugWithTitle: aString!