*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 22 Nov 2006 19:10:50 +0100
changeset 7538 53fc886caab0
parent 7537 cfc57e7d5948
child 7539 ea82227fd8ab
*** empty log message ***
NewSystemBrowser.st
Tools__NewSystemBrowser.st
--- 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!