--- a/SelectionInListView.st	Wed Feb 22 04:41:31 1995 +0100
+++ b/SelectionInListView.st	Mon Feb 27 11:41:57 1995 +0100
@@ -38,7 +38,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.22 1995-02-22 03:41:31 claus Exp $
+$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.23 1995-02-27 10:41:04 claus Exp $
 '!
 
 !SelectionInListView class methodsFor:'documentation'!
@@ -59,7 +59,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.22 1995-02-22 03:41:31 claus Exp $
+$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.23 1995-02-27 10:41:04 claus Exp $
 "
 !
 
@@ -495,11 +495,6 @@
     cursor := Cursor hand
 !
 
-initEvents
-    super initEvents.
-    self enableButtonEvents
-!
-
 realize
     super realize.
     selection notNil ifTrue:[
@@ -1670,14 +1665,12 @@
 		    "
 		     the ST-80 way of doing things - notify model via changeSymbol
 		    "
-		    (model notNil and:[changeSymbol notNil]) ifTrue:[
-			useIndex == true ifTrue:[
-			    arg := selection
-			] ifFalse:[
-			    arg := self selectionValue
-			].
-			model perform:changeSymbol with:arg
-		    ]
+		    useIndex == true ifTrue:[
+			arg := selection
+		    ] ifFalse:[
+			arg := self selectionValue
+		    ].
+		    self sendChangeMessageWith:arg
 		].
 		clickLine := listLineNr
 	    ].
@@ -1722,14 +1715,12 @@
 		"
 		 the ST-80 way of doing things
 		"
-		(model notNil and:[changeSymbol notNil]) ifTrue:[
-		    useIndex == true ifTrue:[
-			arg := selection
-		    ] ifFalse:[
-			arg := self selectionValue
-		    ].
-		    model perform:changeSymbol with:arg
-		]
+		useIndex == true ifTrue:[
+		    arg := selection
+		] ifFalse:[
+		    arg := self selectionValue
+		].
+		self sendChangeMessageWith:arg
 	    ].
 	    clickLine := listLineNr
 	]