--- a/TestRunner.st	Thu Dec 07 08:49:35 2000 +0100
+++ b/TestRunner.st	Fri Dec 08 14:48:14 2000 +0100
@@ -116,7 +116,7 @@
             )
            #(#MenuButtonSpec
               #name: #defects
-              #layout: #(#LayoutFrame 0 0 -24 1 -75 1 0 1)
+              #layout: #(#LayoutFrame 0 0 -24 1 -152 1 0 1)
               #isOpaque: true
               #flags: 40
               #model: #selectionHolder
@@ -125,8 +125,16 @@
               #menu: #defectMenu
             )
            #(#ActionButtonSpec
+              #label: 'Browse'
+              #name: 'Button4'
+              #layout: #(#LayoutFrame -151 1 -24 1 -76 1 0 1)
+              #model: #browseSelectedTestCase
+              #initiallyDisabled: true
+              #enableChannel: #enableRunButton
+            )
+           #(#ActionButtonSpec
               #label: 'Debug'
-              #name: 'Button4'
+              #name: 'Button6'
               #layout: #(#LayoutFrame -75 1 -24 1 0 1 0 1)
               #model: #debugSelectedFailure
               #initiallyDisabled: true
@@ -315,6 +323,16 @@
 
 !TestRunner methodsFor:'Actions'!
 
+browseSelectedTestCase
+    |testCaseName testCase|
+
+    testCaseName := self scriptModel value at:(self script value).
+    testCase := Smalltalk at:testCaseName asSymbol.
+    testCase notNil ifTrue:[
+        UserPreferences default systemBrowserClass openInClass:testCase
+    ]
+!
+
 debugSelectedFailure
 	self debugTest: self selection
 
@@ -527,6 +545,8 @@
     super postOpenWith: aBuilder.
     self tests defaultLabel: ''.
     self tests selection: 'ExampleSetTest'.
+    self enableRunButton value: (self script value size > 0).
+    self enableRunDefectsButton value: false.
     self enableDebugButton value: false.
     self enableDefectsList value: false.
     self script onChangeSend: #suiteSelectionChanged to: self