--- a/MultipleItemSelectionWidget.st	Thu Mar 08 18:30:38 2007 +0100
+++ b/MultipleItemSelectionWidget.st	Mon Mar 12 10:54:40 2007 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libwidg2' }"
 
 ApplicationModel subclass:#MultipleItemSelectionWidget
@@ -424,10 +423,12 @@
 
 canAddAllItemsToSelection
     canAddAllItemsToSelection isNil ifTrue:[
-       canAddAllItemsToSelection := BlockValue with:[:m | m value size > 0]
-				    argument:self listOfPossibleItems 
+       canAddAllItemsToSelection := BlockValue with:[:m | m size > 0]
+                                    argument:self listOfPossibleItems 
     ].
     ^ canAddAllItemsToSelection.
+
+    "Modified: / 08-03-2007 / 22:59:51 / cg"
 !
 
 canAddItemToSelection
@@ -438,18 +439,22 @@
     "*** Please change as required and accept it in the browser."
 
     canAddItemToSelection isNil ifTrue:[
-       canAddItemToSelection := BlockValue with:[:m | m value size > 0]
-				    argument:self possibleItemListSelection 
+       canAddItemToSelection := BlockValue with:[:m | m size > 0]
+                                    argument:self possibleItemListSelection 
     ].
     ^ canAddItemToSelection.
+
+    "Modified: / 08-03-2007 / 22:59:54 / cg"
 !
 
 canRemoveAllItemsFromSelection
     canRemoveAllItemsFromSelection isNil ifTrue:[
-       canRemoveAllItemsFromSelection := BlockValue with:[:m | m value size > 0]
-				    argument:self listOfSelectedItems 
+       canRemoveAllItemsFromSelection := BlockValue with:[:m | m size > 0]
+                                    argument:self listOfSelectedItems 
     ].
     ^ canRemoveAllItemsFromSelection.
+
+    "Modified: / 08-03-2007 / 22:59:58 / cg"
 !
 
 canRemoveItemFromSelection
@@ -460,10 +465,12 @@
     "*** Please change as required and accept it in the browser."
 
     canRemoveItemFromSelection isNil ifTrue:[
-       canRemoveItemFromSelection := BlockValue with:[:m | m value size > 0]
-				    argument:self selectedItemListSelection 
+       canRemoveItemFromSelection := BlockValue with:[:m | m size > 0]
+                                    argument:self selectedItemListSelection 
     ].
     ^ canRemoveItemFromSelection.
+
+    "Modified: / 08-03-2007 / 23:00:01 / cg"
 !
 
 enableChannel
@@ -613,5 +620,5 @@
 !MultipleItemSelectionWidget class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MultipleItemSelectionWidget.st,v 1.7 2005-02-02 11:02:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MultipleItemSelectionWidget.st,v 1.8 2007-03-12 09:54:40 cg Exp $'
 ! !