--- a/Tools__TestRunner2.st	Sun Aug 21 16:49:30 2011 +0200
+++ b/Tools__TestRunner2.st	Sun Aug 21 18:06:11 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'!
@@ -159,6 +159,34 @@
 
 ! !
 
+!TestRunner2 class methodsFor:'help specs'!
+
+helpSpec
+    "This resource specification was automatically generated
+     by the UIHelpTool of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the UIHelpTool may not be able to read the specification."
+
+    "
+     UIHelpTool openOnClass:Tools::TestRunner2    
+    "
+
+    <resource: #help>
+
+    ^ super helpSpec addPairsFrom:#(
+
+#runCoverage
+'Run tests with coverage measurements enabled. (requires that the testcase class defines #coveredClasses)'
+
+#runDebugged
+'Run tests with debugger enabled.'
+
+)
+
+    "Modified: / 21-08-2011 / 17:41:36 / cg"
+! !
+
 !TestRunner2 class methodsFor:'image specs'!
 
 defaultIcon
@@ -215,7 +243,7 @@
                     model: runSelectedAction
                     enableChannel: hasTestCasesAspect
                     disabledLogo: 'Run Selected'
-                    extent: (Point 98 44)
+                    extent: (Point 82 44)
                   )
                  (ActionButtonSpec
                     label: 'Profiled'
@@ -224,16 +252,26 @@
                     tabable: true
                     model: runProfiledAction
                     initiallyDisabled: true
-                    extent: (Point 98 44)
+                    extent: (Point 82 44)
                   )
                  (ActionButtonSpec
                     label: 'Coverage'
                     name: 'RunCoverage'
+                    activeHelpKey: runCoverage
                     translateLabel: true
                     tabable: true
                     model: runCoverageAction
                     initiallyDisabled: true
-                    extent: (Point 99 44)
+                    extent: (Point 82 44)
+                  )
+                 (ActionButtonSpec
+                    label: 'Debug'
+                    name: 'Button1'
+                    activeHelpKey: runDebugged
+                    translateLabel: true
+                    tabable: true
+                    model: runDebuggedAction
+                    extent: (Point 82 44)
                   )
                  (ActionButtonSpec
                     label: 'Run Failures'
@@ -244,7 +282,7 @@
                     initiallyDisabled: true
                     enableChannel: hasFailuresAspect
                     disabledLogo: 'Run Failures'
-                    extent: (Point 98 44)
+                    extent: (Point 82 44)
                   )
                  (ActionButtonSpec
                     label: 'Run Errors'
@@ -255,7 +293,7 @@
                     initiallyDisabled: true
                     enableChannel: hasErrorsAspect
                     disabledLogo: 'Run Errors'
-                    extent: (Point 99 44)
+                    extent: (Point 82 44)
                   )
                  )
                
@@ -265,8 +303,6 @@
          
         )
       )
-
-    "Modified: / 04-07-2011 / 22:39:20 / cg"
 !
 
 classCategoryListSpec
@@ -1230,6 +1266,12 @@
     "Created: / 04-07-2011 / 23:04:22 / cg"
 !
 
+runDebuggedAction
+    self runSuite: self selectedTestSuite keepFailures: false keepErrors: false debug: true
+
+    "Created: / 21-08-2011 / 17:49:49 / cg"
+!
+
 runErrorsAction
     "akce na tlacitku Run Errors"
     
@@ -1276,6 +1318,20 @@
 !
 
 runSuite: aTestSuite keepFailures: keepFailures keepErrors: keepErrors
+    ^ self
+        runSuite: aTestSuite 
+        keepFailures: keepFailures 
+        keepErrors: keepErrors 
+        debug: false
+
+    "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: / 20-08-2011 / 13:58:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 21-08-2011 / 17:52:28 / cg"
+!
+
+runSuite: aTestSuite keepFailures: keepFailures keepErrors: keepErrors debug:doDebug
     | testResult testCases |
 
     self withWaitCursorDo:[
@@ -1288,7 +1344,8 @@
             ]
             afterEachDo:[:test :result|
                 testCases add: test class name
-            ].
+            ]
+            debug:doDebug.
 
         self displayResult: testResult keepFailures: keepFailures keepErrors: keepErrors.
     ].
@@ -1299,6 +1356,7 @@
     "Modified: / 06-06-2008 / 19:40:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 04-07-2011 / 23:06:23 / cg"
     "Modified: / 20-08-2011 / 13:58:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 21-08-2011 / 17:51:42 / cg"
 ! !
 
 !TestRunner2 methodsFor:'actions - menu'!
@@ -1699,7 +1757,7 @@
 !TestRunner2::ClassList class methodsFor:'documentation'!
 
 version
-    ^'$Id: Tools__TestRunner2.st,v 1.26 2011-08-20 18:45:11 cg Exp $'
+    ^'$Id: Tools__TestRunner2.st,v 1.27 2011-08-21 16:06:11 cg Exp $'
 ! !
 
 !TestRunner2::ClassList methodsFor:'private'!
@@ -2198,11 +2256,11 @@
 !TestRunner2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.26 2011-08-20 18:45:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.27 2011-08-21 16:06:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.26 2011-08-20 18:45:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.27 2011-08-21 16:06:11 cg Exp $'
 !
 
 version_SVN