--- 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