The Trunk: SUnitGUI-nice.44.mcz

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: [  ] ]] ] ] ]!