--- a/TestCase.st Wed Jan 27 17:04:19 2016 +0100
+++ b/TestCase.st Sat Feb 13 12:23:04 2016 +0100
@@ -312,6 +312,8 @@
!TestCase class methodsFor:'misc ui support'!
iconInBrowserSymbol
+ "the browser will use this as index into the toolbariconlibrary"
+
<resource: #programImage>
|lastResult|
@@ -320,15 +322,15 @@
lastResult := self lastTestRunResultOrNil.
lastResult notNil ifTrue:[
- lastResult == TestResult statePass ifTrue:[
- ^ #testCasePassedIcon
- ].
- lastResult == TestResult stateFail ifTrue:[
- ^ #testCaseFailedIcon
- ].
- lastResult == TestResult stateError ifTrue:[
- ^ #testCaseErrorIcon
- ].
+ lastResult == TestResult statePass ifTrue:[
+ ^ #testCasePassedIcon
+ ].
+ lastResult == TestResult stateFail ifTrue:[
+ ^ #testCaseFailedIcon
+ ].
+ lastResult == TestResult stateError ifTrue:[
+ ^ #testCaseErrorIcon
+ ].
].
^ #testCaseClassIcon
! !