[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