The Trunk: System-ul.737.mcz

Levente Uzonyi uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ul.737.mcz

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

Name: System-ul.737
Author: ul
Time: 6 May 2015, 1:09:16.373 pm
UUID: 80332b98-672e-40b3-a04b-8aee101654d0
Ancestors: System-kfr.736

#groupBy:having -> #groupBy:

=============== Diff against System-kfr.736 ===============

Item was changed:
  ----- Method: MessageTally>>rootPrintOn:total:totalTime:threshold: (in category 'printing') -----
  rootPrintOn: aStream total: total totalTime: totalTime threshold: threshold
 
  | groups sons |
  sons := self sonsOver: threshold.
+ groups := sons groupBy: [ :aTally | aTally process ].
- groups := sons groupBy: [ :aTally | aTally process] having: [ :g | true].
  groups keysAndValuesDo: [ :p :g |
  (reportOtherProcesses or: [ p notNil ]) ifTrue: [
  aStream nextPutAll: '--------------------------------'; cr.
  aStream nextPutAll: 'Process: ',  (p ifNil: [ 'other processes'] ifNotNil: [ p browserPrintString]); cr.
  aStream nextPutAll: '--------------------------------'; cr.
  g sort do:[:aSon |
  aSon
  treePrintOn: aStream
  tabs: OrderedCollection new
  thisTab: ''
  total: total
  totalTime: totalTime
  tallyExact: false
  orThreshold: threshold]].
  ]!