# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 950275869 -3600
# Node ID c4046d0b638e003492bd77da8257598e5ad0d277
# Parent  0793db434b211c9d0ef518ed3aa1cfa4de332170
care for multiSelect into a non-list;
must make certain that #value: into model sends a change
message (i.e. create a copy of the list), since valueHolder
does nothing if same object is stored again.

diff -r 0793db434b21 -r c4046d0b638e UIPainterView.st
--- 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