DSVColumnView.st
changeset 6094 fda155fd4f93
parent 6072 f62d23bf936f
child 6103 546b95ce8e53
--- a/DSVColumnView.st	Sat Jul 20 08:28:43 2019 +0200
+++ b/DSVColumnView.st	Tue Jul 23 11:54:22 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1997 by Claus Gittinger / eXept Software AG
               All Rights Reserved
@@ -1638,17 +1636,19 @@
      dY    "{ Class: SmallInteger }"
      yB    "{ Class: SmallInteger }"
      h     "{ Class: SmallInteger }"
-    |
-
+     myList|
+
+    myList := list.
+    
     (    (start := startIndex) < 1
-     or:[(stop := stopIndex) > list size]
+     or:[(stop := stopIndex) > myList size]
     ) ifTrue:[
         ^ self subscriptBoundsError:start
     ].
     size := stop - start + 1.
 
     beDependentOfRows ifTrue:[
-        list from:start to:stop do:[:r| r notNil ifTrue:[r removeDependent:self]].
+        myList from:start to:stop do:[:r| r notNil ifTrue:[r removeDependent:self]].
     ].
     noSel := self numberOfSelections.
 
@@ -1689,7 +1689,7 @@
             ]
         ]
     ].
-    list removeFrom:start to:stop.
+    myList removeFrom:start to:stop.
 
     y0 := (start - 1) * rowHeight.
     dY := size * rowHeight.
@@ -1736,6 +1736,8 @@
         self invalidateX:margin y:y0 width:width - margin - margin height:(height - y0).
     ].
     self contentsChanged.
+
+    "Modified: / 23-07-2019 / 11:38:00 / Claus Gittinger"
 !
 
 removeIndex:aRowNr