[squeak-dev] The Trunk: Tools-ul.1063.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Sep 3 14:20:15 UTC 2021
Levente Uzonyi uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ul.1063.mcz
==================== Summary ====================
Name: Tools-ul.1063
Author: ul
Time: 3 September 2021, 3:48:00.381705 pm
UUID: 63fed3fb-636f-450b-8b1f-4853a9e540fb
Ancestors: Tools-cmm.1062
- doWithIndex: -> withIndexDo:
- ifNotNilDo: -> ifNotNil:
=============== Diff against Tools-cmm.1062 ===============
Item was changed:
----- Method: DebuggerMethodMap>>tempsAndValuesForContext:contractTo: (in category 'accessing') -----
tempsAndValuesForContext: aContext contractTo: width
"Return a string of the temporary variabls and their current values"
| aStream tempStream |
aStream := WriteStream on: (String new: 100).
tempStream := WriteStream on: (String new: width).
+ (self tempNamesForContext: aContext) withIndexDo:
- (self tempNamesForContext: aContext) doWithIndex:
[:title :index |
aStream nextPutAll: title; nextPut: $:; space; tab.
tempStream reset.
aContext print: (self namedTempAt: index in: aContext) on: tempStream.
aStream nextPutAll: (tempStream contents contractTo: width).
aStream cr].
^aStream contents!
Item was changed:
----- Method: StringHolder>>copyReference (in category '*Tools') -----
copyReference
"Copy the selected selector to the clipboard"
self selectedMessageName ifNotNil:
[ : selector | Clipboard clipboardText:
(self selectedClassOrMetaClass
ifNil: [ selector asString ]
+ ifNotNil: [ : cls | (cls >> selector) reference ]) ]!
- ifNotNilDo: [ : cls | (cls >> selector) reference ]) ]!
More information about the Squeak-dev
mailing list
|