--- a/SelectionInListView.st	Sat Feb 18 21:15:07 1995 +0100
+++ b/SelectionInListView.st	Wed Feb 22 02:21:41 1995 +0100
@@ -17,7 +17,8 @@
 			      doubleClickActionBlock
 			      selectConditionBlock
 			      listAttributes multipleSelectOk clickLine
-			      listSymbol initialSelectionSymbol printItems oneItem
+			      listSymbol initialSelectionSymbol printItems 
+			      oneItem useIndex
 			      hilightLevel hilightFrameColor ignoreReselect
 			      arrowLevel smallArrow keyActionStyle toggleSelect
 			      strikeOut iSearchString'
@@ -37,7 +38,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.19 1995-02-18 20:14:47 claus Exp $
+$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.20 1995-02-22 01:21:41 claus Exp $
 '!
 
 !SelectionInListView class methodsFor:'documentation'!
@@ -58,7 +59,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.19 1995-02-18 20:14:47 claus Exp $
+$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.20 1995-02-22 01:21:41 claus Exp $
 "
 !
 
@@ -341,15 +342,36 @@
 
 !SelectionInListView class methodsFor:'instance creation'!
 
-on:aModel printItems:print oneItem:one aspect:aspect
-	      change:change list:list menu:menu
-			 initialSelection:initial
+on:aModel printItems:print oneItem:one aspect:aspect change:change 
+		list:list menu:menu initialSelection:initial useIndex:useIndex
 
     "for ST-80 compatibility"
 
-    ^ (self new) on:aModel printItems:print oneItem:one aspect:aspect
-			       change:change list:list menu:menu
-		     initialSelection:initial
+    ^ (self new) on:aModel 
+		 printItems:print 
+		 oneItem:one 
+		 aspect:aspect
+		 change:change 
+		 list:list 
+		 menu:menu
+		 initialSelection:initial
+		 useIndex:useIndex
+!
+
+on:aModel printItems:print oneItem:one aspect:aspect
+	      change:change list:list menu:menu initialSelection:initial
+
+    "for ST-80 compatibility"
+
+    ^ self  on:aModel 
+	    printItems:print 
+	    oneItem:one 
+	    aspect:aspect
+	    change:change 
+	    list:list 
+	    menu:menu
+	    initialSelection:initial
+	    useIndex:false 
 ! !
 
 !SelectionInListView methodsFor:'initialization'!
@@ -698,9 +720,8 @@
     doubleClickActionBlock := aBlock
 !
 
-on:aModel printItems:print oneItem:one aspect:aspect
-	      change:change list:list menu:menu
-    initialSelection:initial
+on:aModel printItems:print oneItem:one aspect:aspect change:change 
+		list:list menu:menu initialSelection:initial useIndex:use
 
     "ST-80 compatibility"
 
@@ -711,7 +732,7 @@
     initialSelectionSymbol := initial.
     printItems := print.
     oneItem := one.
-
+    useIndex := use.
     model := aModel.
 
     listSymbol notNil ifTrue:[