The Trunk: Tools-ct.894.mcz

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]))!