--- a/ListView.st	Fri Feb 09 13:48:15 1996 +0100
+++ b/ListView.st	Fri Feb 09 13:48:50 1996 +0100
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:2.10.8 on 18-dec-1995 at 23:29:27'                   !
-
 View subclass:#ListView
 	instanceVariableNames:'list firstLineShown leftOffset nFullLinesShown nLinesShown
 		fgColor bgColor partialLines leftMargin topMargin textStartLeft
@@ -320,6 +318,10 @@
 
     topMargin := aNumber.
     textStartTop := topMargin + margin.
+!
+
+wordCheckBlock:aBlock
+        wordCheck := aBlock.
 ! !
 
 !ListView methodsFor:'accessing-contents'!
@@ -2797,5 +2799,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.60 1996-02-08 21:08:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.61 1996-02-09 12:48:50 ca Exp $'
 ! !