[squeak-dev] The Trunk: Tools-ul.190.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Feb 22 16:28:58 UTC 2010
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!
More information about the Squeak-dev
mailing list
|