#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Tue, 21 May 2019 17:23:33 +0200
changeset 6051 d7240d502ea7
parent 6050 63d0cca05196
child 6052 1202b5749715
#BUGFIX by cg class: DSVColumnView changed: #update:with:from: FIX: list could be empty when a paste arrives
DSVColumnView.st
--- a/DSVColumnView.st	Wed May 08 10:45:34 2019 +0200
+++ b/DSVColumnView.st	Tue May 21 17:23:33 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1997 by Claus Gittinger / eXept Software AG
               All Rights Reserved
@@ -1854,12 +1856,15 @@
                 useIndex ifTrue:[
                     self selectRowIndex:model value
                 ] ifFalse:[
-                    |newSel|
-
+                    |myList newSel|
+
+                    myList := self list ? #().
                     multipleSelectOk ifTrue:[
-                        newSel := (model value ? #()) collect:[:each | self list indexOf:each]
+                        newSel := (model value ? #()) 
+                                    collect:[:each | myList indexOf:each]
+                                    thenSelect:[:eachIdx | eachIdx ~~ 0].
                     ] ifFalse:[
-                        newSel := (self list ? #()) indexOf:model value
+                        newSel := myList indexOf:model value
                     ].
                     self selectRowIndex:newSel
                 ].
@@ -1930,6 +1935,7 @@
 
     "Modified: / 30-01-2000 / 12:16:49 / cg"
     "Modified: / 08-03-2018 / 18:06:19 / stefan"
+    "Modified: / 21-05-2019 / 17:22:20 / Claus Gittinger"
 !
 
 updateColumnFromEditValue