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