[Pkg] 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 Packages mailing list