The Trunk: SUnitGUI-cmm.48.mcz

Chris Muller uploaded a new version of SUnitGUI to project The Trunk:
http://source.squeak.org/trunk/SUnitGUI-cmm.48.mcz

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

Name: SUnitGUI-cmm.48
Author: cmm
Time: 2 March 2010, 5:42:44.01 pm
UUID: 05105d37-bba8-4553-a4ef-0b51030da6cb
Ancestors: SUnitGUI-klub.47

- Corrected reference to MessageSet>>#openMessageList:... to utilize the ToolSet api.

=============== Diff against SUnitGUI-klub.47 ===============

Item was changed:
  ----- Method: TestRunner>>collectCoverageFor: (in category 'actions') -----
  collectCoverageFor: methods
  | wrappers suite |
  wrappers := methods collect: [ :each | TestCoverage on: each ].
  suite := self
  reset;
  suiteAll.
 
  [ wrappers do: [ :each | each install ].
  [ self runSuite: suite ] ensure: [ wrappers do: [ :each | each uninstall ] ] ] valueUnpreemptively.
  wrappers := wrappers reject: [ :each | each hasRun ].
  wrappers isEmpty
  ifTrue:
  [ UIManager default inform: 'Congratulations. Your tests cover all code under analysis.' ]
  ifFalse:
+ [ ToolSet
+ browseMessageSet: (wrappers collect: [ :each | each reference ])
+ name: 'Not Covered Code (' , (100 - (100 * wrappers size // methods size)) printString , '% Code Coverage)'
+ autoSelect: nil ].
- [ MessageSet
- openMessageList: (wrappers collect: [ :each | each reference ])
- name: 'Not Covered Code (' , (100 - (100 * wrappers size // methods size)) printString , '% Code Coverage)' ].
  self saveResultInHistory!