Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ct.894.mcz

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

Name: Tools-ct.894
Author: ct
Time: 21 September 2019, 7:26:33.082935 pm
UUID: 0c4d2dab-e19b-9e45-917d-5ce46fc25438
Ancestors: Tools-mt.892

Allow the VersionsBrowser to select a certain CompiledMethod and implement #browse on CompiledMethod

=============== Diff against Tools-mt.892 ===============

Item was added:
+ ----- Method: CompiledMethod>>browse (in category '*Tools-Browsing') -----
+ browse
+ 
+ 	^ ToolSet browseMethod: self!

Item was added:
+ ----- Method: StandardToolSet class>>browseMethod: (in category 'browsing') -----
+ browseMethod: aCompiledMethod
+ 	"Open a browser"
+ 	aCompiledMethod isInstalled
+ 		ifTrue: [self browse: aCompiledMethod methodClass selector: aCompiledMethod selector]
+ 		ifFalse: [VersionsBrowser browseMethod: aCompiledMethod]!

Item was added:
+ ----- Method: VersionsBrowser class>>browseMethod: (in category 'instance creation') -----
+ browseMethod: aCompiledMethod
+ 
+ 	^ (self browseVersionsForClass: aCompiledMethod methodClass selector: aCompiledMethod selector)
+ 		selectMethod: aCompiledMethod;
+ 		yourself!

Item was changed:
  ----- Method: VersionsBrowser class>>browseVersionsForClass:selector: (in category 'instance creation') -----
  browseVersionsForClass: aClass selector: aSelector
+ 
+ 	^ self
- 	self
  		browseVersionsOf: (aClass compiledMethodAt: aSelector)
  		class: aClass
  		meta: aClass isMeta
  		category: (aClass organization categoryOfElement: aSelector)
  		selector: aSelector!

Item was added:
+ ----- Method: VersionsBrowser>>selectMethod: (in category 'menu') -----
+ selectMethod: aCompiledMethod
+ 
+ 	self toggleListIndex: (self changeList indexOf: (
+ 		self changeList detect: [:change | change stamp = aCompiledMethod timeStamp]))!