--- a/NewSystemBrowser.st Wed Nov 22 19:04:14 2006 +0100
+++ b/NewSystemBrowser.st Wed Nov 22 19:10:50 2006 +0100
@@ -20439,8 +20439,10 @@
cls rememberFailedTestsFromResult:result.
].
result hasPassed ifTrue:[
- isCompleteSuite ifTrue:[ cls rememberPassedTestRun ].
- self showInfo:(result printString asText colorizeAllWith:Color black on:Color green).
+ result passedCount > 0 ifTrue:[
+ isCompleteSuite ifTrue:[ cls rememberPassedTestRun ].
+ self showInfo:(result printString asText colorizeAllWith:Color black on:Color green).
+ ].
] ifFalse:[
isCompleteSuite ifTrue:[ cls rememberFailedTestRun ].
self showInfo:(result printString asText colorizeAllWith:Color black on:Color red).
@@ -20452,7 +20454,7 @@
]
"Created: / 05-08-2006 / 17:32:06 / cg"
- "Modified: / 13-08-2006 / 17:53:58 / cg"
+ "Modified: / 22-11-2006 / 18:13:42 / cg"
!
saveClassDocumentationFor:aClass
@@ -40276,7 +40278,7 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1114 2006-11-22 12:23:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1115 2006-11-22 18:10:50 cg Exp $'
! !
NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st Wed Nov 22 19:04:14 2006 +0100
+++ b/Tools__NewSystemBrowser.st Wed Nov 22 19:10:50 2006 +0100
@@ -20439,8 +20439,10 @@
cls rememberFailedTestsFromResult:result.
].
result hasPassed ifTrue:[
- isCompleteSuite ifTrue:[ cls rememberPassedTestRun ].
- self showInfo:(result printString asText colorizeAllWith:Color black on:Color green).
+ result passedCount > 0 ifTrue:[
+ isCompleteSuite ifTrue:[ cls rememberPassedTestRun ].
+ self showInfo:(result printString asText colorizeAllWith:Color black on:Color green).
+ ].
] ifFalse:[
isCompleteSuite ifTrue:[ cls rememberFailedTestRun ].
self showInfo:(result printString asText colorizeAllWith:Color black on:Color red).
@@ -20452,7 +20454,7 @@
]
"Created: / 05-08-2006 / 17:32:06 / cg"
- "Modified: / 13-08-2006 / 17:53:58 / cg"
+ "Modified: / 22-11-2006 / 18:13:42 / cg"
!
saveClassDocumentationFor:aClass
@@ -40276,7 +40278,7 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1114 2006-11-22 12:23:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1115 2006-11-22 18:10:50 cg Exp $'
! !
NewSystemBrowser initialize!