--- a/TextView.st	Fri Dec 15 14:04:06 1995 +0100
+++ b/TextView.st	Sat Dec 16 13:25:11 1995 +0100
@@ -11,15 +11,15 @@
 "
 
 ListView subclass:#TextView
-	 instanceVariableNames:'selectionStartLine selectionStartCol selectionEndLine
+	instanceVariableNames:'selectionStartLine selectionStartCol selectionEndLine
 		selectionEndCol clickStartLine clickStartCol clickLine clickCol
 		clickCount wordStartCol wordStartLine wordEndCol wordEndLine
 		selectionFgColor selectionBgColor fileBox searchBox lineNumberBox
 		selectStyle directoryForFileDialog contentsWasSaved'
-	 classVariableNames:'DefaultFont DefaultViewBackground DefaultSelectionForegroundColor
+	classVariableNames:'DefaultFont DefaultViewBackground DefaultSelectionForegroundColor
 		DefaultSelectionBackgroundColor MatchDelayTime'
-	 poolDictionaries:''
-	 category:'Views-Text'
+	poolDictionaries:''
+	category:'Views-Text'
 !
 
 !TextView class methodsFor:'documentation'!
@@ -152,7 +152,7 @@
     aTitle notNil ifTrue:[top label:aTitle].
 
     aString notNil ifTrue:[
-        textView contents:aString
+	textView contents:aString
     ].
 
     top open.
@@ -1476,6 +1476,7 @@
 	"
 	selectionStartCol := selectionStartCol + 1.
 	super redrawLine:selectionStartLine from:selectionStartCol-1 to:selectionStartCol-1.
+	selectStyle := #word.
     ].
     self setSearchPattern.
     searchPattern notNil ifTrue:[
@@ -1571,9 +1572,11 @@
 " "
     savedCursor := cursor.
     self cursor:(Cursor cross).
-    OperatingSystem millisecondDelay:300.
+    Processor activeProcess millisecondDelay:300.
     self cursor:savedCursor
 " "
+
+    "Modified: 16.12.1995 / 13:11:31 / cg"
 ! !
 
 !TextView methodsFor:'selections'!
@@ -1851,5 +1854,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.30 1995-12-10 16:52:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.31 1995-12-16 12:24:34 cg Exp $'
 ! !