--- a/DataSetView.st	Thu Apr 16 13:00:21 1998 +0200
+++ b/DataSetView.st	Thu Apr 16 13:01:10 1998 +0200
@@ -653,6 +653,9 @@
             (what isNil or:[what == #list or:[what == #size or:[what == #value]]]) ifTrue:[
                 ^ self listHolder:listHolder        "/ reread list from model
             ].
+            what == #selectionIndex ifTrue:[
+                ^ self
+            ].
             self perform:what with:aPara
         ]
     ].
@@ -678,8 +681,8 @@
     |start stop size list|
 
     list  := listHolder value.
-    start := anArray first.
-    size  := anArray last.
+    start := anArray at:1.
+    size  := anArray at:2.
 
     size ~~ 0 ifTrue:[
         stop := start + size - 1.
@@ -699,17 +702,10 @@
     "raised from listHolder: remove rows from start (anArray at:1) 
      to stop (anArray at:2).
     "
-    |start stop|
-
-    start := anArray first.
-    stop  := anArray last.
-
     listHolder value size == 0 ifTrue:[
         columnView list:nil
     ] ifFalse:[
-        (stop - start + 1) timesRepeat:[
-            columnView removeIndex:start
-        ]
+        columnView removeFrom:(anArray at:1) to:(anArray at:2)
     ]
 !
 
@@ -719,8 +715,8 @@
     "
     |start stop list|
 
-    start := anArray first.
-    stop  := anArray last.
+    start := anArray at:1.
+    stop  := anArray at:2.
     list  := listHolder value.
 
     start to:stop do:[:anIndex|
@@ -808,5 +804,5 @@
 !DataSetView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetView.st,v 1.19 1998-04-01 14:07:32 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DataSetView.st,v 1.20 1998-04-16 11:01:10 ca Exp $'
 ! !