--- a/Tools__TestRunner2.st	Fri Aug 19 14:42:46 2011 +0200
+++ b/Tools__TestRunner2.st	Sat Aug 20 16:05:22 2011 +0200
@@ -28,35 +28,35 @@
 "{ NameSpace: Tools }"
 
 AbstractTestRunner subclass:#TestRunner2
-	instanceVariableNames:'classCategoryOrPackageTabIndexHolder classCategoryList
-		packageList classList classListOutGeneratorHolder
-		classListInGeneratorHolder modeHolder detailsHolder
-		failureListHolder failureSelectionHolder errorListHolder
-		errorSelectionHolder lastPass resultHolder lastBrowser'
-	classVariableNames:'History'
-	poolDictionaries:''
-	category:'SUnit-UI'
+        instanceVariableNames:'classCategoryOrPackageTabIndexHolder classCategoryList
+                packageList classList classListOutGeneratorHolder
+                classListInGeneratorHolder modeHolder detailsHolder
+                failureListHolder failureSelectionHolder errorListHolder
+                errorSelectionHolder lastPass resultHolder lastBrowser'
+        classVariableNames:'History'
+        poolDictionaries:''
+        category:'SUnit-UI'
 !
 
 ClassList subclass:#ClassList
-	instanceVariableNames:''
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:TestRunner2
+        instanceVariableNames:''
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:TestRunner2
 !
 
 ApplicationModel subclass:#ResultList
-	instanceVariableNames:'results resultsHolder selectiomHolder listHolder timestampFormat'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:TestRunner2
+        instanceVariableNames:'results resultsHolder selectiomHolder listHolder timestampFormat'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:TestRunner2
 !
 
 HierarchicalItem subclass:#ListEntry
-	instanceVariableNames:'label realLabel test result'
-	classVariableNames:'PassedText FailedText ErrorText'
-	poolDictionaries:''
-	privateIn:TestRunner2::ResultList
+        instanceVariableNames:'label realLabel test result'
+        classVariableNames:'PassedText FailedText ErrorText'
+        poolDictionaries:''
+        privateIn:TestRunner2::ResultList
 !
 
 !TestRunner2 class methodsFor:'documentation'!
@@ -123,6 +123,7 @@
     "/ action := (MessageSend receiver:(Smalltalk at:self name) selector:#open).
     action := [ (Smalltalk at:self name) open ].
 
+
     "Install in Tools menu"
     menuItem := (MenuItem label:'SUnit Test Runner (enhanced)')
                 nameKey:#TestRunner2;
@@ -155,6 +156,7 @@
     "Modified: / 26-11-2008 / 09:38:20 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 09-01-2010 / 20:48:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 18-08-2011 / 11:34:24 / cg"
+
 ! !
 
 !TestRunner2 class methodsFor:'image specs'!
@@ -1286,13 +1288,6 @@
                 testCases add: test class name
             ].
 
-        testCases do: [:clsName| 
-            | cls |
-
-            (cls := Smalltalk classNamed:clsName) notNil ifTrue:[
-                cls rememberFailedTestRunWithResult:testResult
-            ]
-        ].
         self displayResult: testResult keepFailures: keepFailures keepErrors: keepErrors.
     ].
     ^testResult
@@ -1300,8 +1295,8 @@
     "Modified: / 18-01-2008 / 18:38:08 / janfrog"
     "Created: / 06-06-2008 / 09:11:57 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 06-06-2008 / 19:40:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
-    "Modified: / 19-03-2010 / 08:44:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 04-07-2011 / 23:06:23 / cg"
+    "Modified: / 20-08-2011 / 13:58:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TestRunner2 methodsFor:'actions - menu'!
@@ -1669,9 +1664,9 @@
 !
 
 formatTime: aTime 
-	aTime hours > 0 ifTrue: [^aTime hours printString , 'h'].
-	aTime minutes > 0 ifTrue: [^aTime minutes printString , 'min'].
-	^aTime seconds printString , ' sec'
+        aTime hours > 0 ifTrue: [^aTime hours printString , 'h'].
+        aTime minutes > 0 ifTrue: [^aTime minutes printString , 'min'].
+        ^aTime seconds printString , ' sec'
 
     "Created: / 18-01-2008 / 18:57:08 / janfrog"
 !
@@ -1692,8 +1687,8 @@
 !
 
 timeSinceLastPassAsString
-	lastPass isNil ifTrue: [^''].
-	^', ' , (self formatTime: (Time now subtractTime: lastPass getSeconds)) , ' since last Pass'
+        lastPass isNil ifTrue: [^''].
+        ^', ' , (self formatTime: (Time now subtractTime: lastPass getSeconds)) , ' since last Pass'
 
     "Modified: / 03-04-2000 / 19:17:11 / Sames"
     "Created: / 18-01-2008 / 18:51:21 / janfrog"
@@ -1702,7 +1697,7 @@
 !TestRunner2::ClassList class methodsFor:'documentation'!
 
 version
-    ^'$Id: Tools__TestRunner2.st,v 1.22 2011-08-18 10:18:26 cg Exp $'
+    ^'$Id: Tools__TestRunner2.st,v 1.23 2011-08-20 14:05:22 vrany Exp $'
 ! !
 
 !TestRunner2::ClassList methodsFor:'private'!
@@ -2201,11 +2196,11 @@
 !TestRunner2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.22 2011-08-18 10:18:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.23 2011-08-20 14:05:22 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.22 2011-08-18 10:18:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.23 2011-08-20 14:05:22 vrany Exp $'
 !
 
 version_SVN