The Trunk: SUnitGUI-klub.47.mcz

A new version of SUnitGUI was added to project The Trunk:
http://source.squeak.org/trunk/SUnitGUI-klub.47.mcz

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

Name: SUnitGUI-klub.47
Author: klub
Time: 20 February 2010, 3:33:54.737 pm
UUID: 23bcaf05-27ca-4045-a54a-e27bd620cb8b
Ancestors: SUnitGUI-nice.46

- bugfix: Make sure TestRunner >> #findClassesForCategories: returns a Set. This avoids a bug which happens when a class is selected multiple times, because #withAllSubclasses (and #allSubclasses) returns an OrderedCollection nowdays instead of a Set.

=============== Diff against SUnitGUI-nice.46 ===============

Item was changed:
  ----- Method: TestRunner>>findClassesForCategories: (in category 'utilities') -----
  findClassesForCategories: aCollection
+
  | items |
  aCollection isEmpty
+ ifTrue: [ ^ self baseClass withAllSubclasses asSet ].
- ifTrue: [ ^ self baseClass withAllSubclasses ].
  items := aCollection gather: [ :category |
  ((Smalltalk organization listAtCategoryNamed: category)
  collect: [ :each | Smalltalk at: each ])
  select: [ :each | each includesBehavior: self baseClass ] ].
  ^ items asSet.!