The Trunk: Tools-mt.716.mcz

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

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

Name: Tools-mt.716
Author: mt
Time: 12 August 2016, 10:23:20.779343 am
UUID: 89d5f9f2-c1ea-b844-ac93-cd650155a5dc
Ancestors: Tools-mt.715

Use #sorted: instead of #sortBy: to better indicate that it is a copy and not an in-place update like #sort:.

=============== Diff against Tools-mt.715 ===============

Item was changed:
  ----- Method: MethodFinder>>initialize (in category 'initialize') -----
(excessive size, no diff calculated)

Item was changed:
  ----- Method: MethodFinder>>initialize2 (in category 'initialize') -----
(excessive size, no diff calculated)

Item was changed:
  ----- Method: ProcessBrowser>>updateProcessList (in category 'process list') -----
  updateProcessList
  | oldSelectedProcess newIndex now |
  now := Time millisecondClockValue.
  now - lastUpdate < 500
  ifTrue: [^ self].
  "Don't update too fast"
  lastUpdate := now.
  oldSelectedProcess := selectedProcess.
  processList := selectedProcess := selectedSelector := nil.
  Smalltalk garbageCollectMost.
  "lose defunct processes"
 
  processList := Process allSubInstances
  reject: [:each | each isTerminated].
  processList := processList
+ sorted: [:a :b | a priority >= b priority].
- sortBy: [:a :b | a priority >= b priority].
  processList := WeakArray withAll: processList.
  newIndex := processList
  indexOf: oldSelectedProcess
  ifAbsent: [0].
  self changed: #processNameList.
  self processListIndex: newIndex!

Item was changed:
  ----- Method: SelectorBrowser>>listFromResult: (in category 'selector finding') -----
  listFromResult: resultOC
  "ResultOC is of the form #('(data1 op data2)' '(...)'). Answer a sorted array."
 
  (resultOC first beginsWith: 'no single method') ifTrue: [^ #()].
+ ^ resultOC sorted: [:a :b |
- ^ resultOC sortBy: [:a :b |
  (a copyFrom: 6 to: a size) < (b copyFrom: 6 to: b size)].
 
  !