[squeak-dev] The Trunk: Tests-ul.131.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Jun 18 08:57:56 UTC 2011


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

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

Name: Tests-ul.131
Author: ul
Time: 17 June 2011, 4:47:06.821 pm
UUID: c2d78b3a-39d5-fd47-9274-46d2b3cb57d8
Ancestors: Tests-cmm.130

- Use #displayProgressFrom:to:during: instead of #displayProgressAt:from:to:during:.

=============== Diff against Tests-cmm.130 ===============

Item was changed:
  ----- Method: PCCByCompilation>>methodsWithDisabledCall (in category 'ui querying') -----
  methodsWithDisabledCall
  	"Answer a SortedCollection of all the methods that contain, in source  
  	code, the substring indicating a disabled prim."
  	"The alternative implementation  
  		^ SystemNavigation new allMethodsWithSourceString: self disabledPrimStartString
  									matchCase: true  
  	also searches in class comments."
  	| list string |
  	string := self disabledPrimStartString.
  	list := Set new.
  	'Searching all method source code...'
+ 		displayProgressFrom: 0
- 		displayProgressAt: Sensor cursorPoint
- 		from: 0
  		to: Smalltalk classNames size * 2 "classes with their metaclasses"
  		during: [:bar | | classCount |
  			classCount := 0.
  			SystemNavigation default
  				allBehaviorsDo: [:class | 
  					bar value: (classCount := classCount + 1).
  					class
  						selectorsDo: [:sel | 
  							| src | 
  							"higher priority to avoid source file accessing  
  							errors"
  							src := [class sourceCodeAt: sel]
  								valueAt: self higherPriority.
  							(src
  								findString: string
  								startingAt: 1
  								caseSensitive: true) > 0
  								ifTrue: [sel isDoIt ifFalse: [
  											list add: (MethodReference new setStandardClass: class methodSymbol: sel)]]]]].
  	^ list asSortedCollection!




More information about the Squeak-dev mailing list