The Trunk: Tools-ul.190.mcz

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

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

Name: Tools-ul.190
Author: ul
Time: 22 February 2010, 5:12:15.419 pm
UUID: db5f5ac0-49e5-c940-a045-4c306dd1175e
Ancestors: Tools-cmm.189

- integrate MessageTally fixes from Cuis (by Juan Vuletich)

=============== Diff against Tools-cmm.189 ===============

Item was changed:
  ----- Method: Debugger>>process:controller:context: (in category 'private') -----
  process: aProcess controller: aController context: aContext
 
  super initialize.
+ Smalltalk at: #MessageTally ifPresentAndInMemory: #terminateTimerProcess.
- Smalltalk at: #MessageTally ifPresentAndInMemory: [:c | c new close].
  contents := nil.
  interruptedProcess := aProcess.
  interruptedController := aController.
  contextStackTop := aContext.
  self newStack: (contextStackTop stackOfSize: 1).
  contextStackIndex := 1.
  externalInterrupt := false.
  selectingPC := true.
  Smalltalk isMorphic ifTrue:
  [errorWasInUIProcess := false]!

Item was changed:
  ----- Method: TimeProfileBrowser>>runBlock:pollingEvery: (in category 'private') -----
  runBlock: aBlock pollingEvery: pollPeriod
  | stream list result |
  block := MessageSend
  receiver: self
  selector: #runBlock:pollingEvery:
  arguments: {
  aBlock.
  pollPeriod}. "so we can re-run it"
  tally := MessageTally new.
  tally
+ reportOtherProcesses: false;
  maxClassNameSize: 1000;
  maxClassPlusSelectorSize: 1000;
  maxTabs: 100.
  result := tally spyEvery: pollPeriod on: aBlock.
  stream := ReadWriteStream
+ with: (String streamContents: [ :s |
+ tally report: s]).
- with: (String streamContents:
- [:s |
- tally
- report: s;
- close]).
  stream reset.
  list := OrderedCollection new.
  [stream atEnd] whileFalse: [list add: stream nextLine].
  self initializeMessageList: list.
  self changed: #messageList.
  self changed: #messageListIndex.
  ^result!

Item was changed:
  ----- Method: TimeProfileBrowser>>runProcess:forMilliseconds:pollingEvery: (in category 'private') -----
  runProcess: aProcess forMilliseconds: msecDuration pollingEvery: pollPeriod
  | stream list result |
  block := MessageSend
  receiver: self
  selector: #runProcess:forMilliseconds:pollingEvery:
  arguments: {
  aProcess.
  msecDuration.
  pollPeriod}. "so we can re-run it"
  tally := MessageTally new.
  tally
+ reportOtherProcesses: false;
  maxClassNameSize: 1000;
  maxClassPlusSelectorSize: 1000;
  maxTabs: 100.
  result := tally
  spyEvery: pollPeriod
  onProcess: aProcess
  forMilliseconds: msecDuration.
  stream := ReadWriteStream
+ with: (String streamContents: [ :s |
+ tally report: s]).
- with: (String streamContents:
- [:s |
- tally
- report: s;
- close]).
  stream reset.
  list := OrderedCollection new.
  [stream atEnd] whileFalse: [list add: stream nextLine].
  self initializeMessageList: list.
  self changed: #messageList.
  self changed: #messageListIndex.
  ^result!