Christoph Thiede uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1247.mcz
==================== Summary ====================
Name: Tools-ct.1247 Author: ct Time: 2 March 2024, 8:28:46.009052 pm UUID: 7ce4a4da-cc0f-1646-8421-a10fe85212de Ancestors: Tools-ct.1246
Merges temputils.1.cs: Adds Context>>tempNamed: and Context>>tempNamed:put:.
Thanks to Eliot (emm) for the review!
=============== Diff against Tools-ct.1246 ===============
Item was added: + ----- Method: Context>>tempNamed: (in category '*Tools-debugger access') ----- + tempNamed: aString + "Answer the value of the temporary variable in me with that name. Slower than #tempAt:, but very useful." + + ^ self debuggerMap tempNamed: aString in: self!
Item was added: + ----- Method: Context>>tempNamed:put: (in category '*Tools-debugger access') ----- + tempNamed: aString put: aValue + "Store the value into the temporary variable in me of that name. Slower than #tempAt:put:, but very useful." + + ^ self debuggerMap + tempNamed: aString + put: aValue + in: self!
Item was added: + ----- Method: DebuggerMethodMap>>tempIndexFor:in:ifAbsent: (in category 'accessing') ----- + tempIndexFor: tempName in: aContext ifAbsent: aBlock + + ^ (self tempNamesForContext: aContext) + indexOf: tempName + ifAbsent: aBlock!
Item was added: + ----- Method: DebuggerMethodMap>>tempNamed:in: (in category 'accessing') ----- + tempNamed: aString in: aContext + "Answer the value of the temporary variable in aContext with that name. Slower than Context>>tempAt:, but very useful." + + ^ self + namedTempAt: (self + tempIndexFor: aString asString + in: aContext + ifAbsent: [self error: 'no such temp']) + in: aContext!
Item was added: + ----- Method: DebuggerMethodMap>>tempNamed:put:in: (in category 'accessing') ----- + tempNamed: aString put: aValue in: aContext + "Store into the value of the temporary variable in aContext of that name. Slower than Context>>tempAt:put:, but very useful." + + ^ self + namedTempAt: (self + tempIndexFor: aString asString + in: aContext + ifAbsent: [self error: 'no such temp']) + put: aValue + in: aContext!