oops
authorClaus Gittinger <cg@exept.de>
Tue, 29 Apr 2003 17:16:58 +0200
changeset 2739 199c79b11aa9
parent 2738 d8cf5b3e84ed
child 2740 892dfb6b0da1
oops
SelectionInListView.st
--- a/SelectionInListView.st	Mon Apr 28 10:42:19 2003 +0200
+++ b/SelectionInListView.st	Tue Apr 29 17:16:58 2003 +0200
@@ -3331,6 +3331,7 @@
         ].
 
         newSelection := selectionAtClickTime copy.
+        newSelection isNil ifTrue:[newSelection := OrderedCollection new].
 
         "/ compute new selection
         delta  := (clickLine < movedLine) ifTrue:[1] ifFalse:[-1].
@@ -3913,5 +3914,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.210 2003-04-28 08:42:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.211 2003-04-29 15:16:58 cg Exp $'
 ! !