The Trunk: SUnitGUI-ul.45.mcz

Levente Uzonyi uploaded a new version of SUnitGUI to project The Trunk:
http://source.squeak.org/trunk/SUnitGUI-ul.45.mcz

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

Name: SUnitGUI-ul.45
Author: ul
Time: 12 December 2009, 2:48:24 am
UUID: 96a2cee8-c263-9540-9184-720576e46f99
Ancestors: SUnitGUI-nice.44

- replace sends of #ifNotNilDo: to #ifNotNil:, #ifNil:ifNotNilDo: to #ifNil:ifNotNil:, #ifNotNilDo:ifNil: to #ifNotNil:ifNil:

=============== Diff against SUnitGUI-nice.44 ===============

Item was changed:
  ----- Method: TestRunner>>findCategories (in category 'utilities') -----
  findCategories
  | visible |
  visible := Set new.
  self baseClass withAllSubclassesDo: [ :each |
+ each category ifNotNil: [ :category |
- each category ifNotNilDo: [ :category |
  visible add: category ] ].
  ^ Array streamContents: [ :stream |
  Smalltalk organization categories do: [ :each |
  (visible includes: each)
  ifTrue: [ stream nextPut: each ] ] ].!