[Pkg] The Trunk: Tests-nice.299.mcz

[commits at source.squeak.org]

Nicolas Cellier uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-nice.299.mcz

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

Name: Tests-nice.299
Author: nice
Time: 29 May 2014, 7:40:08.496 am
UUID: 638a5f11-86a1-4dc6-a72d-9b4750f3a22e
Ancestors: Tests-nice.298

No use to test isDoIt in the selectors, DoIt are not installed in MethodDictionary anymore.

=============== Diff against Tests-nice.298 ===============

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
  		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: [list add: (MethodReference class: class selector: sel)]]]].
- 								ifTrue: [sel isDoIt ifFalse: [
- 											list add: (MethodReference class: class selector: sel)]]]]].
  	^ list asSortedCollection!