--- a/UIPainterView.st	Fri Feb 11 14:14:24 2000 +0100
+++ b/UIPainterView.st	Fri Feb 11 14:31:09 2000 +0100
@@ -1578,13 +1578,19 @@
                 selection := OrderedCollection with:selection with:anObject
             ]
         ] ifTrue:[
-            selection add:anObject
+            "/ to enforce the change-message (value is identical to oldValue)
+            selection isList ifTrue:[
+                selection add:anObject
+            ] ifFalse:[
+                selection := selection asOrderedCollection.
+                selection := selection copyWith:anObject
+            ]
         ].
         self showSelected:anObject.
         treeView cvsSelectionAdd:anObject.
     ]
 
-
+    "Modified: / 11.2.2000 / 01:39:05 / cg"
 !
 
 removeFromSelection:anObject
@@ -1594,7 +1600,13 @@
         self showUnselected:anObject.
 
         selection size > 1 ifTrue:[
-            selection remove:anObject ifAbsent:nil.
+            selection isList ifTrue:[
+                selection remove:anObject ifAbsent:nil
+            ] ifFalse:[
+                "/ to enforce the change-message (value is identical to oldValue)
+                selection := selection asOrderedCollection.
+                selection := selection copyWithout:anObject
+            ].
             self showSelection.
         ] ifFalse:[
             selection := nil
@@ -1602,6 +1614,7 @@
         treeView cvsSelectionRemove:anObject.
     ]
 
+    "Modified: / 11.2.2000 / 01:41:11 / cg"
 !
 
 select:something