--- a/Tools_ClassGeneratorList.st	Mon Sep 14 20:16:19 2009 +0200
+++ b/Tools_ClassGeneratorList.st	Mon Sep 14 20:16:21 2009 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libtool' }"
 
 "{ NameSpace: Tools }"
@@ -330,7 +329,7 @@
     generator isNil ifTrue:[^ #() ].
     generator do:[:prj | theList add:prj].
     theList := theList asOrderedCollection sort.
-    theList addFirst:(self class nameListEntryForALL).
+    theList addFirst:(self class nameListEntryForALL asText allItalic).
     ^ theList
 
     "Created: / 25.2.2000 / 21:24:26 / cg"
@@ -340,29 +339,29 @@
     |categories hideUnloadedClasses|
 
     inGeneratorHolder notNil ifTrue:[
-	^ self listFromInGenerator
+        ^ self listFromInGenerator
     ].
 
     hideUnloadedClasses := self hideUnloadedClasses value.
 
     categories := Set new.
     Smalltalk allClassesDo:[:cls |
-	(hideUnloadedClasses not or:[cls isLoaded])
-	ifTrue:[
-	    categories add:cls category.
-	]
+        (hideUnloadedClasses not or:[cls isLoaded])
+        ifTrue:[
+            categories add:cls category.
+        ]
     ].
 
     "/ those are simulated - in ST/X, empty categories do not
     "/ really exist; however, during browsing, it makes sense.
     AdditionalEmptyCategories size > 0 ifTrue:[
-	"/ remove those that are present ...
-	AdditionalEmptyCategories := AdditionalEmptyCategories select:[:cat | (categories includes:cat) not].
-	categories addAll:AdditionalEmptyCategories.
+        "/ remove those that are present ...
+        AdditionalEmptyCategories := AdditionalEmptyCategories select:[:cat | (categories includes:cat) not].
+        categories addAll:AdditionalEmptyCategories.
     ].
     categories := categories asOrderedCollection.
     categories sort.
-    categories addFirst:(self class nameListEntryForALL).
+    categories addFirst:(self class nameListEntryForALL asText allItalic).
     ^ categories
 
     "Created: / 5.2.2000 / 13:42:12 / cg"
@@ -399,7 +398,7 @@
     allNamespaces := allNamespaces collect:[:ns | ns name].
     allNamespaces := allNamespaces asOrderedCollection.
     allNamespaces sort.
-    allNamespaces addFirst:(self class nameListEntryForALL).
+    allNamespaces addFirst:(self class nameListEntryForALL asText allItalic).
     ^ allNamespaces
 
     "Created: / 25.2.2000 / 21:21:14 / cg"
@@ -451,7 +450,7 @@
         allProjects addAll:AdditionalEmptyProjects.
     ].
     allProjects sort.
-    allProjects addFirst:(self class nameListEntryForALL).
+    allProjects addFirst:(self class nameListEntryForALL asText allItalic).
     ^ allProjects
 
     "Created: / 25.2.2000 / 21:22:06 / cg"
@@ -537,5 +536,5 @@
 !ClassGeneratorList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassGeneratorList.st,v 1.7 2006-08-23 17:33:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassGeneratorList.st,v 1.8 2009-09-14 18:16:21 cg Exp $'
 ! !