--- 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