#BUGFIX by cg
class: DSVColumnView
changed: #update:with:from:
FIX: list could be empty when a paste arrives
--- 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