[Pkg] The Trunk: Tools-mt.716.mcz

[commits at source.squeak.org]

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