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

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

Name: SUnitGUI-nice.44
Author: nice
Time: 20 October 2009, 10:06:16 am
UUID: 802a880a-fe7a-4e3b-8bf6-6bb56a3008cb
Ancestors: SUnitGUI-laza.43

Track selectors usage, use #includesSelector: where due

=============== Diff against SUnitGUI-laza.43 ===============

Item was changed:
  ----- Method: TestRunner>>addDeclaredPackagesUnderTestTo: (in category 'actions') -----
  addDeclaredPackagesUnderTestTo: packages 
  	classesSelected do: 
  		[ :class | 
+ 		(class class includesSelector: #packageNamesUnderTest) ifTrue: 
- 		(class class selectors includes: #packageNamesUnderTest) ifTrue: 
  			[ class packageNamesUnderTest do: [ :name | packages add: (PackageInfo named: name) ] ] ]!

Item was changed:
  ----- Method: TestRunner>>excludeClassesNotUnderTestFrom: (in category 'actions') -----
  excludeClassesNotUnderTestFrom: methods 
  	| theClass |
  	classesSelected do: 
  		[ :class | 
+ 		(class class includesSelector: #classNamesNotUnderTest) ifTrue: 
- 		(class class selectors includes: #classNamesNotUnderTest) ifTrue: 
  			[ class classNamesNotUnderTest do: 
  				[ :className | 
  				theClass := Smalltalk classNamed: className.
  				theClass ifNotNil:[
  				theClass methods do: 
  					[ :each | 
  					methods 
  						remove: each methodReference
  						ifAbsent: [  ] ].
  				theClass class methods do: 
  					[ :each | 
  					methods 
  						remove: each methodReference
  						ifAbsent: [  ] ]] ] ] ]!