--- a/Tools_ClassCategoryList.st Tue Sep 15 10:23:14 2009 +0200
+++ b/Tools_ClassCategoryList.st Tue Sep 15 10:33:17 2009 +0200
@@ -14,7 +14,7 @@
"{ NameSpace: Tools }"
BrowserList subclass:#ClassCategoryList
- instanceVariableNames:'categoryList classes allSelected'
+ instanceVariableNames:'categoryList classes allSelected showPseudoCategories'
classVariableNames:'AdditionalEmptyCategories'
poolDictionaries:''
category:'Interface-Browsers-New'
@@ -165,22 +165,21 @@
(if this app is embedded in a subCanvas)."
^ #(
- #(#doubleClickChannel #action )
- #forceGeneratorTrigger
- #hideUnloadedClasses
- #immediateUpdate
- #inGeneratorHolder
- #menuHolder
- #nameSpaceFilter
- #organizerMode
- #outGeneratorHolder
- #packageFilter
- #selectedCategories
- #selectionChangeCondition
- #slaveMode
- #updateTrigger
+ #(#doubleClickChannel #action )
+ #forceGeneratorTrigger
+ #hideUnloadedClasses
+ #immediateUpdate
+ #inGeneratorHolder
+ #menuHolder
+ #nameSpaceFilter
+ #organizerMode
+ #outGeneratorHolder
+ #packageFilter
+ #selectedCategories
+ #selectionChangeCondition
+ #slaveMode
+ #updateTrigger
).
-
! !
!ClassCategoryList class methodsFor:'special'!
@@ -711,7 +710,7 @@
self classCategoryLabelHolder value:(categories first)
].
categories size == 0 ifFalse:[
- categories addFirst:(self class nameListEntryForALL).
+ categories addFirst:(self class nameListEntryForALL allItalic).
].
^ categories
@@ -863,5 +862,5 @@
!ClassCategoryList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.21 2008-11-25 14:01:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.22 2009-09-15 08:33:17 cg Exp $'
! !