--- a/TestTester.st	Mon Apr 26 10:46:15 2010 +0200
+++ b/TestTester.st	Mon Apr 26 15:59:00 2010 +0200
@@ -543,7 +543,7 @@
 
 menuRunCheck
     AssertionFailedError handle:[:ex |
-        self mutatedMethodSourceHolder value:ex parameter.
+        "/ self mutatedMethodSourceHolder value:ex parameter.
         self infoLabelHolder value:ex errorString.
     ] do:[
         self withWaitCursorDo:[
@@ -557,7 +557,7 @@
     ].
     self updateDiffTextView.
 
-    "Modified: / 26-04-2010 / 10:39:28 / cg"
+    "Modified: / 26-04-2010 / 12:23:46 / cg"
 !
 
 openAboutThisApplication
@@ -619,6 +619,7 @@
             errorString:'Test failed for original'.
         self mutatedMethodSourceHolder value:nil
     ] do:[
+        self infoLabelHolder value:'Running Suite on original code...'.
         self runSuiteExpectingSuccess:aTestSuite.
     ].
     tree := RBParser parseMethod:(aMethod source) onError:[:str :pos | nil ].
@@ -629,20 +630,30 @@
     "/ just to make sure: check if compiled method behaves the same
     newSource := tree formattedCode.
     self withCode:newSource installedAs:methodSelector inClass:methodClass do:[:newMethod |
+        self infoLabelHolder value:'Running Suite on original code again...'.
         self runSuiteExpectingSuccess:aTestSuite.
     ].
 
+    self originalMethodSourceHolder value:newSource.
+    self mutatedMethodSourceHolder value:newSource.
+    self updateDiffTextView.
+
     "/ start to fiddle with the code; the tests MUST detect each !!
     self mutationsOf:tree do:[:modifiedTree |
         newSource := modifiedTree formattedCode.
+        self mutatedMethodSourceHolder value:newSource.
+        self updateDiffTextView.
+
         self withCode:newSource installedAs:methodSelector inClass:methodClass do:[:newMethod |
             AssertionFailedError handle:[:ex |
+self halt.
                 AssertionFailedError 
                     raiseWith:newSource
-                    errorString:ex errorString
+                    errorString:ex errorString.
 "/ 'TestCase incomplete - some test should fail'.
             ] do:[
                 numberOfTriedMutations := numberOfTriedMutations + 1.
+                self infoLabelHolder value:('Running Suite on mutation %1...' bindWith:numberOfTriedMutations).
                 self runSuiteExpectingFailure:aTestSuite.
             ]
         ].
@@ -656,7 +667,7 @@
     "
 
     "Created: / 24-04-2010 / 14:06:07 / cg"
-    "Modified: / 26-04-2010 / 10:40:22 / cg"
+    "Modified: / 26-04-2010 / 12:22:58 / cg"
 !
 
 testMethod:aMethod usingTest:aTestCaseClass
@@ -762,21 +773,24 @@
         method := methods first.
         source := method source.
     ].
+self halt.
     self originalMethodSourceHolder value:source.
 
     self updateDiffTextView.
     selectedTesteeMethod := method.
 
     "Created: / 25-04-2010 / 15:51:03 / cg"
-    "Modified: / 26-04-2010 / 10:38:46 / cg"
+    "Modified: / 26-04-2010 / 12:24:53 / cg"
 !
 
 updateDiffTextView
     diffTextView 
         text1:(self originalMethodSourceHolder value ? '')
         text2:(self mutatedMethodSourceHolder value ? '').
+    self windowGroup repairDamage.
 
     "Created: / 26-04-2010 / 10:38:39 / cg"
+    "Modified: / 26-04-2010 / 12:19:26 / cg"
 ! !
 
 !TestTester::Mutator class methodsFor:'instance creation'!
@@ -987,5 +1001,5 @@
 !TestTester class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestTester.st,v 1.1 2010-04-26 08:45:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestTester.st,v 1.2 2010-04-26 13:59:00 cg Exp $'
 ! !