--- a/Tools_ClassList.st	Mon Mar 27 19:10:34 2006 +0200
+++ b/Tools_ClassList.st	Mon Mar 27 19:10:37 2006 +0200
@@ -1101,11 +1101,11 @@
     ].
 
     orgMode := organizerMode value.
-    orgMode == #hierarchy ifTrue:[
+    orgMode == OrganizerCanvas organizerModeHierarchy ifTrue:[
         "/ always show the full name
         ^ nm
     ].
-    orgMode == #classHierarchy ifTrue:[
+    orgMode == OrganizerCanvas organizerModeClassHierarchy ifTrue:[
         "/ always show the full name
         ^ nm
     ].
@@ -1170,7 +1170,7 @@
 
     filteredNameSpaces := nameSpaceFilter value.
     (filteredNameSpaces isNil 
-    and:[self organizerMode value ~~ #namespace]) ifTrue:[
+    and:[self organizerMode value ~~ OrganizerCanvas organizerModeNamespace]) ifTrue:[
         showNamespaces := true.       "/ if no filter, always show the namespace.
     ] ifFalse:[
         (filteredNameSpaces size > 1 
@@ -1218,7 +1218,7 @@
                                 emPkg := self emphasizeForDifferentPackage:'+'. "/ self emphasizeForDifferentPackage:pkg.
                             ].
 
-                            orgMode == #project ifTrue:[
+                            orgMode == OrganizerCanvas organizerModeProject ifTrue:[
                                 (filteredPackages notNil
                                 and:[(filteredPackages includes:cls package) not]) ifTrue:[
                                     "/ class is in another packae;
@@ -1622,5 +1622,5 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.12 2006-03-17 14:18:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.13 2006-03-27 17:10:37 cg Exp $'
 ! !