--- a/MultipleItemSelectionWidget.st	Fri Mar 01 14:54:16 2019 +0100
+++ b/MultipleItemSelectionWidget.st	Fri Mar 01 16:02:15 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2004 by eXept Software AG
               All Rights Reserved
@@ -406,7 +408,7 @@
     |sel t selectedItemList possibleItemList|
 
     sel := self selectedItemListSelection value.
-    sel size > 0 ifTrue:[
+    sel size ~~ 0 ifTrue:[
         possibleItemList := self listOfPossibleItems. 
         t := possibleItemList value copy.
         t addAll:sel.
@@ -419,6 +421,8 @@
 
         self selectedItemListSelection value:#()
     ]
+
+    "Modified: / 01-03-2019 / 16:01:53 / Claus Gittinger"
 !
 
 showInfoForItem:anArgument
@@ -441,12 +445,13 @@
 
 canAddAllItemsToSelection
     canAddAllItemsToSelection isNil ifTrue:[
-       canAddAllItemsToSelection := BlockValue with:[:m | m size > 0]
+       canAddAllItemsToSelection := BlockValue with:[:m | m size ~~ 0]
                                     argument:self listOfPossibleItems 
     ].
     ^ canAddAllItemsToSelection.
 
     "Modified: / 08-03-2007 / 22:59:51 / cg"
+    "Modified: / 01-03-2019 / 16:02:08 / Claus Gittinger"
 !
 
 canAddItemToSelection
@@ -456,22 +461,24 @@
 
     canAddItemToSelection isNil ifTrue:[
         canAddItemToSelection := BlockValue 
-                                    with:[:m | m size > 0]
+                                    with:[:m | m size ~~ 0]
                                     argument:self possibleItemListSelection 
     ].
     ^ canAddItemToSelection.
 
     "Modified: / 08-03-2007 / 22:59:54 / cg"
+    "Modified: / 01-03-2019 / 16:02:05 / Claus Gittinger"
 !
 
 canRemoveAllItemsFromSelection
     canRemoveAllItemsFromSelection isNil ifTrue:[
-       canRemoveAllItemsFromSelection := BlockValue with:[:m | m size > 0]
+       canRemoveAllItemsFromSelection := BlockValue with:[:m | m size ~~ 0]
                                     argument:self listOfSelectedItems 
     ].
     ^ canRemoveAllItemsFromSelection.
 
     "Modified: / 08-03-2007 / 22:59:58 / cg"
+    "Modified: / 01-03-2019 / 16:02:01 / Claus Gittinger"
 !
 
 canRemoveItemFromSelection
@@ -481,12 +488,13 @@
 
     canRemoveItemFromSelection isNil ifTrue:[
         canRemoveItemFromSelection := BlockValue 
-                                        with:[:m | m size > 0]
+                                        with:[:m | m size ~~ 0]
                                         argument:self selectedItemListSelection 
     ].
     ^ canRemoveItemFromSelection.
 
     "Modified: / 08-03-2007 / 23:00:01 / cg"
+    "Modified: / 01-03-2019 / 16:01:57 / Claus Gittinger"
 !
 
 enableChannel