--- a/Tools__TestRunnerEmbedded.st	Thu Nov 17 21:06:05 2011 +0100
+++ b/Tools__TestRunnerEmbedded.st	Thu Nov 17 21:06:49 2011 +0100
@@ -684,11 +684,20 @@
         ^self
     ].
 
+    sender == Smalltalk ifTrue:[
+        aspect == #lastTestRunResult ifTrue:[
+            (selectedTestCases includesIdentical: param first) ifTrue:[
+                self updateTestSuiteAndResult.
+                ^self        
+            ]
+        ]        
+    ].
+
 
 
     super update:aspect with:param from: sender
 
-    "Modified: / 07-09-2010 / 08:18:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 17-11-2011 / 20:59:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 updateTestCases
@@ -727,12 +736,26 @@
 
 !TestRunnerEmbedded methodsFor:'hooks'!
 
+commonPostOpen
+
+    Smalltalk addDependent: self.
+
+    "Created: / 17-11-2011 / 20:59:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 postBuildRunnerPanel: aView
 
     runnerPanel := aView.
     runnerPanel backgroundColor: self resultBackgroundColorAspect value
 
     "Created: / 15-03-2010 / 14:26:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+releaseAsSubCanvas
+
+    Smalltalk removeDependent: self.
+
+    "Created: / 17-11-2011 / 21:03:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TestRunnerEmbedded methodsFor:'private'!
@@ -975,11 +998,11 @@
 !TestRunnerEmbedded class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.19 2011-10-09 08:57:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.20 2011-11-17 20:06:49 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.19 2011-10-09 08:57:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.20 2011-11-17 20:06:49 vrany Exp $'
 !
 
 version_SVN