class: Tools::ClassList
authorClaus Gittinger <cg@exept.de>
Sat, 30 Mar 2013 15:15:52 +0100
changeset 12579 638b1166d05b
parent 12578 feba96cf1d30
child 12580 b0eaa3b5fa67
class: Tools::ClassList changed: #nameListEntryFor:withNameSpace: abstract classes shown in italic
Tools_ClassList.st
--- a/Tools_ClassList.st	Sat Mar 30 13:49:56 2013 +0100
+++ b/Tools_ClassList.st	Sat Mar 30 15:15:52 2013 +0100
@@ -1888,6 +1888,7 @@
     aClass isLoaded ifFalse:[
         "/ nm := nm,(' (?) ' colorizeAllWith:Color grey).
     ] ifTrue:[
+        aClass isAbstract ifTrue:[ nm := nm allItalic ].
         nm := nm,((' (%1+%2) ' bindWith:(aClass methodDictionary size) with:(aClass class methodDictionary size)) 
                         colorizeAllWith:self class pseudoEntryForegroundColor).
     ].
@@ -2026,10 +2027,10 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.71 2013-03-13 23:56:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.72 2013-03-30 14:15:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.71 2013-03-13 23:56:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.72 2013-03-30 14:15:52 cg Exp $'
 ! !