class: Tools::TestRunner2
authorClaus Gittinger <cg@exept.de>
Sat, 30 Mar 2013 15:16:29 +0100
changeset 12580 b0eaa3b5fa67
parent 12579 638b1166d05b
child 12581 6404de04d506
class: Tools::TestRunner2 abstract classes shown in italic
Tools__TestRunner2.st
--- a/Tools__TestRunner2.st	Sat Mar 30 15:15:52 2013 +0100
+++ b/Tools__TestRunner2.st	Sat Mar 30 15:16:29 2013 +0100
@@ -1845,7 +1845,7 @@
 !TestRunner2::ClassList class methodsFor:'documentation'!
 
 version
-    ^'$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.36 2013-03-13 13:14:03 cg Exp $'
+    ^'$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.37 2013-03-30 14:16:29 cg Exp $'
 ! !
 
 !TestRunner2::ClassList methodsFor:'private'!
@@ -1853,11 +1853,13 @@
 nameListEntryFor:aClass withNameSpace:useFullName
 
     | nm |
+
     nm := super nameListEntryFor:aClass withNameSpace:useFullName.
-    (aClass isTestCaseLike) ifFalse:
-        [self breakPoint: #jv.
-        ^nm].
-    aClass isAbstract ifTrue:[nm := nm colorizeAllWith:Color gray].
+    (aClass isTestCaseLike) ifFalse:[
+        self breakPoint: #jv.
+        ^nm
+    ].
+    aClass isAbstract ifTrue:[nm := nm allItalic colorizeAllWith:Color gray].
     ^nm
 
     "Created: / 27-11-2008 / 17:24:18 / Jan Vrany <vranyj1@fel.cvut.cz>"
@@ -2342,11 +2344,11 @@
 !TestRunner2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.36 2013-03-13 13:14:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.37 2013-03-30 14:16:29 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.36 2013-03-13 13:14:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.37 2013-03-30 14:16:29 cg Exp $'
 !
 
 version_SVN