# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1351591749 -3600
# Node ID dcfba0cb68f214f58ad7418d6e7edc46b5623d05
# Parent  2f2b5c6e81f724a8e8ee0814139fcb7793f7cf81
changed: #nameListEntryFor:withNameSpace:

diff -r 2f2b5c6e81f7 -r dcfba0cb68f2 Tools_HierarchicalClassList.st
--- a/Tools_HierarchicalClassList.st	Tue Oct 30 11:08:53 2012 +0100
+++ b/Tools_HierarchicalClassList.st	Tue Oct 30 11:09:09 2012 +0100
@@ -270,8 +270,14 @@
     nm := aClass name.
     nm isNil ifTrue:[^ '???'].
 
+    aClass isLoaded ifFalse:[
+        "/ nm := nm,(' (?) ' colorizeAllWith:Color grey).
+    ] ifTrue:[
+        nm := nm,((' (%1+%2) ' bindWith:(aClass methodDictionary size) with:(aClass class methodDictionary size)) 
+                                colorizeAllWith:self class pseudoEntryForegroundColor).
+    ].
+
     indent := 0.
-
     superClass := aClass superclass.
     [superClass notNil] whileTrue:[
         indent := indent + 1.
@@ -308,7 +314,7 @@
 !HierarchicalClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassList.st,v 1.9 2009-05-01 17:37:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassList.st,v 1.10 2012-10-30 10:09:09 cg Exp $'
 ! !
 
 HierarchicalClassList initialize!