--- a/TestRunner.st	Fri Dec 08 14:48:14 2000 +0100
+++ b/TestRunner.st	Fri Dec 08 14:52:31 2000 +0100
@@ -8,6 +8,7 @@
 	category:'SUnit-UI'
 !
 
+
 !TestRunner class methodsFor:'defaults'!
 
 defaultIcon
@@ -245,8 +246,9 @@
     |holder|
 
     (holder := builder bindingAt:#script) isNil ifTrue:[
-	holder := ValueHolder new.
-	builder aspectAt:#script put:holder.
+        holder := ValueHolder new.
+        builder aspectAt:#script put:holder.
+        holder onChangeSend:#scriptSelectionChanged to:self.
 "/        holder addDependent:self.
     ].
     ^ holder.
@@ -474,6 +476,10 @@
     "Modified: / 2.4.2000 / 14:16:10 / Sames"
 !
 
+scriptSelectionChanged
+    self enableRunButton value:(self script value size > 0).
+!
+
 selection: aValue
 
 	self debugTest: aValue
@@ -544,7 +550,7 @@
 
     super postOpenWith: aBuilder.
     self tests defaultLabel: ''.
-    self tests selection: 'ExampleSetTest'.
+    "/ self tests selection: 'ExampleSetTest'. self script value:1.
     self enableRunButton value: (self script value size > 0).
     self enableRunDefectsButton value: false.
     self enableDebugButton value: false.
@@ -671,3 +677,8 @@
 	self updateDefects
 ! !
 
+!TestRunner class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.6 2000-12-08 13:52:31 cg Exp $'
+! !