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!