--- a/Tools_OrganizerCanvas.st	Mon Mar 12 10:31:18 2007 +0100
+++ b/Tools_OrganizerCanvas.st	Mon Mar 12 10:40:08 2007 +0100
@@ -3466,12 +3466,12 @@
 categoryListShown
     categoryListShown isNil ifTrue:[
         categoryListShown := BlockValue 
-                        with:[:v | v value == OrganizerCanvas organizerModeCategory]
+                        with:[:v | v == OrganizerCanvas organizerModeCategory]
                         argument:(self organizerMode).
     ].
     ^ categoryListShown
 
-    "Modified: / 18.2.2000 / 02:11:00 / cg"
+    "Modified: / 08-03-2007 / 23:01:48 / cg"
 !
 
 classHierarchyNotShown
@@ -3480,7 +3480,7 @@
     (holder := builder bindingAt:#classHierarchyNotShown) isNil ifTrue:[
         holder := BlockValue 
                         with:[:v | |org|
-                                   org := v value.
+                                   org := v.
                                    org ~~ OrganizerCanvas organizerModeHierarchy
                                    and:[org ~~ OrganizerCanvas organizerModeClassHierarchy
                                    and:[org ~~ OrganizerCanvas organizerModeClassInheritance]]]
@@ -3489,34 +3489,38 @@
     ].
     ^ holder
 
-    "Created: / 18.2.2000 / 00:36:38 / cg"
-    "Modified: / 24.2.2000 / 13:22:43 / cg"
+    "Created: / 18-02-2000 / 00:36:38 / cg"
+    "Modified: / 08-03-2007 / 23:01:51 / cg"
 !
 
 classHierarchyOrInheritanceNotShown
     |holder|
 
     (holder := builder bindingAt:#classHierarchyOrInheritanceNotShown) isNil ifTrue:[
-	holder := BlockValue 
-			with:[:v1 :v2 | (v1 value or:[v2 value]) not]
-			argument:(self classHierarchyShown)
-			argument:(self classInheritanceShown).
-	builder aspectAt:#classHierarchyOrInheritanceNotShown put: holder
+        holder := BlockValue 
+                        with:[:v1 :v2 | (v1 or:[v2]) not]
+                        argument:(self classHierarchyShown)
+                        argument:(self classInheritanceShown).
+        builder aspectAt:#classHierarchyOrInheritanceNotShown put: holder
     ].
     ^ holder
+
+    "Modified: / 08-03-2007 / 23:01:57 / cg"
 !
 
 classHierarchyOrInheritanceShown
     |holder|
 
     (holder := builder bindingAt:#classHierarchyOrInheritanceShown) isNil ifTrue:[
-	holder := BlockValue 
-			with:[:v1 :v2 | v1 value or:[v2 value] ]
-			argument:(self classHierarchyShown)
-			argument:(self classInheritanceShown).
-	builder aspectAt:#classHierarchyOrInheritanceShown put: holder
+        holder := BlockValue 
+                        with:[:v1 :v2 | v1 or:[v2] ]
+                        argument:(self classHierarchyShown)
+                        argument:(self classInheritanceShown).
+        builder aspectAt:#classHierarchyOrInheritanceShown put: holder
     ].
     ^ holder
+
+    "Modified: / 08-03-2007 / 23:02:03 / cg"
 !
 
 classHierarchyShown
@@ -3525,7 +3529,7 @@
     (holder := builder bindingAt:#classHierarchyShown) isNil ifTrue:[
         holder := BlockValue 
                         with:[:v | |org|
-                                   org := v value.
+                                   org := v.
                                    org == OrganizerCanvas organizerModeHierarchy
                                    or:[org == OrganizerCanvas organizerModeClassHierarchy]]
                         argument:(self organizerMode).
@@ -3533,7 +3537,7 @@
     ].
     ^ holder
 
-    "Modified: / 24.2.2000 / 13:23:33 / cg"
+    "Modified: / 08-03-2007 / 23:02:07 / cg"
 !
 
 classInheritanceShown
@@ -3541,13 +3545,14 @@
 
     (holder := builder bindingAt:#classInheritanceShown) isNil ifTrue:[
         holder := BlockValue 
-                        with:[:v | v value == OrganizerCanvas organizerModeClassInheritance]
+                        with:[:v | v == OrganizerCanvas organizerModeClassInheritance]
                         argument:(self organizerMode).
         builder aspectAt:#classInheritanceShown put: holder
     ].
     ^ holder
 
-    "Created: / 24.2.2000 / 13:23:01 / cg"
+    "Created: / 24-02-2000 / 13:23:01 / cg"
+    "Modified: / 08-03-2007 / 23:02:09 / cg"
 !
 
 classListShown
@@ -3555,13 +3560,13 @@
 
     (holder := builder bindingAt:#classListShown) isNil ifTrue:[
         holder := BlockValue 
-                        with:[:v | v value ~~ OrganizerCanvas organizerModeHierarchy]
+                        with:[:v | v ~~ OrganizerCanvas organizerModeHierarchy]
                         argument:(self organizerMode).
         builder aspectAt:#classListShown put: holder
     ].
     ^ holder
 
-    "Modified: / 18.2.2000 / 00:32:48 / cg"
+    "Modified: / 08-03-2007 / 23:02:12 / cg"
 !
 
 nameSpaceListShown
@@ -3569,14 +3574,14 @@
 
     (holder := builder bindingAt:#nameSpaceListShown) isNil ifTrue:[
         holder := BlockValue 
-                        with:[:v | v value == OrganizerCanvas organizerModeNamespace]
+                        with:[:v | v == OrganizerCanvas organizerModeNamespace]
                         argument:(self organizerMode).
         builder aspectAt:#nameSpaceListShown put: holder
     ].
     ^ holder
 
-    "Created: / 18.2.2000 / 00:32:09 / cg"
-    "Modified: / 18.2.2000 / 01:48:35 / cg"
+    "Created: / 18-02-2000 / 00:32:09 / cg"
+    "Modified: / 08-03-2007 / 23:02:15 / cg"
 !
 
 projectListShown
@@ -3584,14 +3589,14 @@
 
     (holder := builder bindingAt:#projectListShown) isNil ifTrue:[
         holder := BlockValue 
-                        with:[:v | v value == OrganizerCanvas organizerModeProject]
+                        with:[:v | v == OrganizerCanvas organizerModeProject]
                         argument:(self organizerMode).
         builder aspectAt:#projectListShown put: holder
     ].
     ^ holder
 
-    "Modified: / 18.2.2000 / 00:31:19 / cg"
-    "Created: / 18.2.2000 / 00:32:09 / cg"
+    "Created: / 18-02-2000 / 00:32:09 / cg"
+    "Modified: / 08-03-2007 / 23:02:18 / cg"
 ! !
 
 !OrganizerCanvas methodsFor:'change & update'!
@@ -3912,5 +3917,5 @@
 !OrganizerCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.23 2007-03-06 11:48:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.24 2007-03-12 09:40:08 cg Exp $'
 ! !