--- a/TestRunner.st	Thu Dec 13 22:51:02 2001 +0100
+++ b/TestRunner.st	Thu Dec 13 23:00:46 2001 +0100
@@ -59,6 +59,41 @@
 
 !TestRunner class methodsFor:'interface specs'!
 
+flyByHelpSpec
+    <resource: #help>
+
+    ^super flyByHelpSpec addPairsFrom:#(
+
+#refreshSuitesButton
+'Refresh List of Tests'
+
+#suitesCategoryList
+'Test Categories'
+
+#suiteSelection
+'Selected Test'
+
+#runButton
+'Run selected Test'
+
+#rerunDefectsButton
+'ReRun Defects Only'
+
+#runAllButton
+'Run all Tests from Category'
+
+#defectsList
+'Failures'
+
+#browseButton
+'Browse Test'
+
+#debugButton
+'Debug Failed Test'
+
+)
+!
+
 windowSpec
     "This resource specification was automatically generated
      by the UIPainter of ST/X."
@@ -93,20 +128,23 @@
               #name: 'Button3'
               #layout: #(#LayoutFrame 0 0 0 0 75 0 48 0)
               #model: #refreshSuites
+              #activeHelpKey: #refreshSuitesButton
             )
            #(#MenuButtonSpec
               #name: 'category'
               #layout: #(#LayoutFrame 76 0 0 0 -216 1 24 0)
               #model: #category
               #menu: #categoryList
+              #activeHelpKey: #suitesCategoryList
             )
            #(#MenuButtonSpec
-              #label: 'ExampleSetTest'
+              #label: ''
               #name: #tests
               #layout: #(#LayoutFrame 76 0 24 0 -216 1 48 0)
               #model: #script
               #menu: #scriptModel
               #useIndex: true
+              #activeHelpKey: #suiteSelection
             )
            #(#ActionButtonSpec
               #label: 'Run'
@@ -114,6 +152,7 @@
               #layout: #(#LayoutFrame -215 1 0 0 -160 1 48 0)
               #model: #runTests
               #enableChannel: #enableRunButton
+              #activeHelpKey: #runButton
             )
            #(#ActionButtonSpec
               #label: 'ReRun Defects'
@@ -121,12 +160,14 @@
               #layout: #(#LayoutFrame -159 1 0 0 -57 1 48 0)
               #model: #runDefects
               #enableChannel: #enableRunDefectsButton
+              #activeHelpKey: #rerunDefectsButton
             )
            #(#ActionButtonSpec
               #label: 'Run All'
               #name: 'Button2'
               #layout: #(#LayoutFrame -56 1 0 0 0 1 48 0)
               #model: #runAllTests
+              #activeHelpKey: #runAllButton
             )
            #(#ProgressIndicatorSpec
               #name: 'ProgressIndicator1'
@@ -158,6 +199,7 @@
               #model: #selectionHolder
               #initiallyDisabled: true
               #enableChannel: #enableDefectsList
+              #activeHelpKey: #defectsList
               #menu: #defectMenu
             )
            #(#ActionButtonSpec
@@ -167,6 +209,7 @@
               #model: #browseSelectedTestCase
               #initiallyDisabled: true
               #enableChannel: #enableRunButton
+              #activeHelpKey: #browseButton
             )
            #(#ActionButtonSpec
               #label: 'Debug'
@@ -175,6 +218,7 @@
               #model: #debugSelectedFailure
               #initiallyDisabled: true
               #enableChannel: #enableDebugButton
+              #activeHelpKey: #debugButton
             )
            )
          
@@ -967,5 +1011,5 @@
 !TestRunner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.23 2001-12-13 17:49:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.24 2001-12-13 22:00:46 cg Exp $'
 ! !